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The CLOAD Saga (our first six months) 
by Ralph McElroy, Publisher 

In the beginning, there were no personal computers. For present 
purposes, the beginning can be assumed to.be reasonably close to the 
winter and spring of 1977. At the time, there was a small company 
(1 1/2 people) eking out a nominal to meager existance in a very old 
building on "the Santa Barbara Airport. One of these ona and one half 
people was me, and the company was "us". Then, as now, we were involved 
in the design and production of microprocessor based products for indus- 
trial customers, using the Zilog Z-80 chip almost exclusively. The 
only problem we faced at the time was that nobody wanted any of our 
products, save an electromechanical doohickey that properly belonged in 
the Stone Age. Minor problem. As we stumbled along in the middle of a 
project that was eventually to fail, we came to the realization that one 
computer (a venerable "old" Altair) was not enough. Fred (Frederick Q. 
Altair - the computer) was both hardware and software development 
system, was torn apart for modifications about half the time, and was in 
use eighteen hours a day seven days a week, those being my working hours. 
What we needed was a separate computer for text entry and general office 
wo r k . 

Commodore Business Machines had by this time announced a new com- 
puter, the PET - a 6502 based machine for $500. Now I'm no 6502 fan, 
but at the time, this machine v/as all that was available ("available" is 
a loose word in the computer industry) , so we decided to get one. The- 
check had been written and almost mailed when we got the word that Tandy 
Corporation / Radio Shack had announced a Z-80 based system, the TRS-80. 
I hadn't quite forgiven Radio Shack for buying out Allied Radio some ten 
years back (I don't hold grudges long), but I could relate to that Z-80 
in there. I had many months of machine level software which would run 
on the beast. 

You see, the microprocessor field was marked at the time by a 
marked lack of software. The only software around was difficult to get 
without stealing, and theft was rampant, which discouraged software dis- 
tribution, which made it difficult to get without stealing, and so on. 
The alternative was to buy a bunch of HITS 4K dynamic memory boards 
(16K of it cost $1,600) which were known to be inoperative by design, 
bu*- which "qualified" you to purchase Microsoft BASIC (with these com- 
puters, even BASIC had to be loaded). The problem boiled ..own to this: 
If you were poor - but - honest, what you had was what you wrote, ana 
its value was not in dollars, but in hours, which are harder- to make. 

Thus the trip to the local Radio Shack store to put a down pay- 
ment on one of the beasts. People who put down payments on products 
known to be in development are a strange subset of humanity. Their 
mentality is inversely proportional to their kncwlege. After receiving 
assurances that "it couldn't be more than two weeks or so" we went back 
to the shoo and continued our hammer - and - bang routine for a few 
months. I* was thoroughly amazed when tne thing came in in a mere four 
months (those of you who think that is an excessive wait have not been 
involved in a microprocessor development' pro ject) . 

The wait had, however, given me time to cogitate on the oppor- 
tunities involved with having a googol of these things around. For one 
thing, the rampant software theft in the hobbyist market had subsided, 
and prices and availability eased considerably. Software development 
had progressed from certain economic" suicide to mere economic foolish- 



2 

t" '■•■ • • .■*■•? 

ness, and was promising to be profitable, though not lucrative, in thp 
near future. The companies 'who were in prime position to pick up the 
chips were those companies who were in 'on the first deal and weathered 
the cheating. 
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"Of course the game is rigged - you can't win if you don't bet". 
(Robert Heinlen) 

Here, as I saw it, would be the future - told (conveniently) in 1 
retrospect: 

1) The market for hardware, add - on peripherals, and modifica- 
tions would hit as soon as the computers were delivered. They would hit 
the wrong market. TRS-80 buyers would not be hardware diddlers. And any- 
one who succeeded in developing a widely desired hardware item would 
get creamed when Radio Shack brought out their version. 

2) The market for software would be explosive - every fool who ^^ 
ever read Dave Ahl's "101 Computer Games" -(a very good book, by the v;ay^P 
would be out there offering Yet Another Version of Biorythm, or Lunar 
Lander . 

3) Those who had good software would see it ripped off and sold 
by others who were aware that software copyright laws are totally un- 
enforcable in any form. 

4) The software market would begin to saturate, and the folks 
who had good stuff would have a difficult time marketing - it . Fortunate- 
ly, so would the ripoff artists. Most software v/ould be sold by distri- 
butors, and brand name association would be the dominant marketing 
factor. 

5) At this point, a half dozen companies or so would have built 
a reputation for honesty and decent software and would be in a good 
market position to continue operation. 

O.K, I'm interested - how does one go from zero to a strong 
marketing position? The logical thing was to be in a situation where 
one is delivering software in a continuing stream, and to ship it to a 
list of people on a subscription basis. This allows a more vocal 
feedback path - someone who has signed up for twelve issues will let you 
know what that first issue looks like. There is also a source of 
software - the readers v/ould submit material of general interest much as 
in a regular magazine. 

Important points: 

1) At first, sell subscriptions on an open credit basis at cost, 
This builds up the list (we only lost about $5,000 to bad debts). 

2) Don't get ulcers over piracy - either it will survive or you 
will (of course the game is rigged...). 

3) Pay for submissions. Cash in full before publication - even 
if it's not much, it's better than vague promises and the bookkeeping 
is a lot easier. 

The first six months went according to plan, though the market 
was a lot smaller than we thought (we didn't break through to 1000 sub- 
scribers for five months) and it took awhile before the submissions 
started coming in. Quite a bit of what follows was written in-house to 
fill out the early issues. 



• 




FLAGS 
by Neal 



Jensen 



(fp V 



Flags is a fantastic program which draws several versions of the 
American flag. The inspiration was from a seriesof stamps put out by 
the U S Post Office to commemorate the Bicentennial Year. It is set up 
as one of our "front cover" programs - a logical place to put programs 
which utilize the TRS-80's graphic capabilities as an art medium. 
(Besides, all magazines should have a front 



cover . . .) . 




YIELD TO MATURITY 
by Charles W. Evans 
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Yield to maturity is a financial, program, set up to calculate 
the yield of a bond, such as the kind which finances the construction of 
the new municipal swimming pool. 
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One complication. Sometimes a bond maker will create bonds at 
a time when interest rates are exceptionally high. It _is_ common ,o 
"hedge the bet" by writing a "call" into the bond. This is a clause on 
the bond which says that on a certain date, the maker or the bona can 
buy it back at a certain price. This affects the current value of the 
bond in that it will never sell at higher than this amount before this 
date is passed, and a oond buyer looks at the yield to call as well a. 
the yield -co maturity. The lesser of the two is the effective one. 

This program sorts out all the complications of time and amounts 
to give a correct value of yield to call and maturity. We have verified 
that it does indeed work to sufficient accuracy to base business^ 
decisions on, although there obviously can be no warranty thdt iu 
absolutely bug free. 
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The code is as good as you'll ever see _ in _ BASIC . 
looking for a programming style to emulate, this is it. 
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S SANDCASTLE 






by Yours Truly 



v, This was written by a drunken sot who was employed at the time 

by a shaky magazine with no future. The object of the game was to make 
money for us by providing filler material for the first issue of CLOAD 
magazine, there being no software to speak of. The game demonstrates 
the engineering concept of slump, or how steeply you can pile material. 
It turns out that any given pile of material (no comments from the 
Peanut Gallery) can be stacked in a pile anywhere from level to a 
certain critical value of steepness (the slump ratio,' height to width). 
If a steeper pile is attempted, the sides will shift and settle until 
this ratio is achieved (which is why children should never be allowed to 
play on a commercial sand storage pile - they might get buried in the 
shifting and settling). 

You start. out with a supply of three different kinds of material 
(sand, gravel and brick). These materials all have different slump 
ratios. Specifically, sand must be stacked G or more meters narrower 
than the previous layer, gravel 4 or more meters, and brick 2 or more 
meters. Example: if the base layer is 14 meters wide, the layer placed 
on top must be 1 through 8 meters if you. choose to lay sand. If a..layer 
of sand 9 meters wide is attempted, it will slump and you will have to 
start all over. Gravel is better stuff - if the base layer fs 14 meters 
wide, a layer of gravel 1 through 10 meters wide can be laid on top (an 
11 meter wide layer will slump). Brick is best of all -• if the base 
layer is 14 meters wide, a layer of brick can be laid up to 12 meters 
wide. It's a shame that you only get a little bit of gravel and brick. 
As you build your pile up, the volume of material used us deducted • from 
your supply. For planning purposes, each layer is 4 meters thick and is 
circular in cross - section, and the material volume is therefore 
(3.141) * (4 meters) * (one half width of layer in meters, squared). 
Armed with this information, you can work out the problem analytically 
(hint: work it backwards), but you can also get it by trial and error. 
You get the fireworks only if you succeed in building 18 .layers. 

// , { | 
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by Paul Kafoure 



This is an implementation of an old mental teaser where a chess 
piece (the knight) is moved around a chessboard such that every square 
is visited once and only once. Only legal moves are allowed (one 'square 
in any direction, two squares in any perpendicular direction). This is 
an example where the computer is the referee and scorekeeper - it does 
not actively participate in the game, though in this example it serves 
a useful purpose. 

This is also an example of "tight code". The author chose to 
write in a terse style, allowing a complex sequence of tasks to be 
handled by a 4K level I system, the only one available at the time. 
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> by Richard Fuller 
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Computers have applications limited only by imagination... 
Advice: don't play pool with Dick Fuller. 

- /" - 

l\, \ " # / Jl Y=mX+b 
T \ J_ A- by Richard Fuller 

VMiother program by Dick Fuller, This one performs an operation 
known as "linear regression". 

Often there is a need to enter what a mathematician would call a 
functional relationship" in the form of a table of individual points 
(although true mathematicians flinch at the thought) and us<=» the normal- 
ly valid assumption that the world is well - behaved to use this set- of 
points to predict the location of other points not listed. In the"" 
example given in the instructions, the table of points is the cali- 
bration ^data on a speedometer. Given this table of data, the program 

or 
;p« 
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can predict either the true speed when given the soeedometer reading 
predict the correct speedometer reading for a given true speed. 
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BREAK 
by Your: 



Truly 



V w" / This is the first program I wrote after receiving the THS-SO I*- 
was initially an exercise in mastering the graphics ability of the beast, 
added to a sick desire to perpretrate a horrible pun. The TPS-80 has a 
special key ("break") to bail the user out of an infinite looo 
(traditionally this was done with a control "C" - shift "C" works on a 
TRS-80). What better use could one ask of this key than to actually 
break something? Or for that matter, why not really aet absurd and 
require the user to "run" after breaking it? 
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Well, here it is, folks - you wet to try to judoe the instant 
impact, with a score which gradually increases until that instant, 
it drops to zero. There is one interesting point- in the code" 
testing the variable N prior to setting it. This is a "switch" to allow 
the program to know whether or not this is the first time the program 
has been RUN. On the initial RUNning, the program goes through the"' 
initialising routine, and thereafter ignores it. 
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PINBALL 
by Paul 



Kafoure 



^ — -"' This game is based on the video game "breakout". Unlike "Break", 
this game is executed in "real time" - that is, it continually runs 
while simultaneously gathering data used to control the paddle. The 
TRS-80 level I machine, however, does not have an "INSTR$" function. 
This means that some ingenuity is called for (true programmers have 
never been short in this department - they're often accused of having 
too much) . 

The technique that Paul uses is to take advantage of the fact that the 
level I TRS-80 automatically "echoes" any character to the screen, and 
the fact that a "set point" can be tested by the program while executing. 
The space bar and backspace key are used in this fashion to wipe out two 
strategically placed set points, and the program senses this by contin- 
ual testing of these points. This technique can be expanded to yet a 
third set point, by setting it up such that an ENTER (carriage return) 
will .wipe out the third point, placed on the next print line. 
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JUKEBOX 
by James 



Ga ron 



\ This program uses the TRS-80 in about as unconventional a fashion 
as' W be. All digital electronic circuits radiate "hash", or electro- 
magnetic noise which often interferes with nearby radio ana TV sets. 
This noise can be "tuned" by doing various things within a program. As 
you might guess by looking at the listings, the term "various" includes 
some strange stuff, and it doesn't convert from level I to level II at 
all (it was re-written instead). 

This program brings back fond memories of "Music of a Sort", an 
article written by Steve Dompier in the old PCC Nev.-sletter way back in 
1976. Ac that time, the MITS Altai r had just hit the scene, and there 
was no I/O available at all (imagine a TRS-80 with no video, keyboard or 
cassette and you've got the picture). Steve was toggling along on the 
front panel switches, "writing" machine level programs to test out the 
8080 chip, and got a WHOOP out of a nearby weather radio when he exe-_ 
cuted a sort routine. He immediately recognized the importance of this 
and wrote a program which beeped out "Fool on the Hill" and "Daisy", 
creating what was at that time the only task that a home computer could 
do - emulate a kazoo. 



Flags Level I 

00002 REM AUTHOR NEAL P. JENSEN, 1589 BLOSSOOM PK, LAKEWOOD. OH 44107 

00003 REM BYTES LEFT 13719/1431 
00010 CLS 

00020 READX 
00030 IFX=100T.100 

00040 G.20 

00100 READA$,Q 

00110 Y=2:I=1 

00120 READX 

00130 S.(X,Y) 

0014 IF(I=14)+(I=19)+(I=23)+(I=27)+(I=34)+(I=38)+(I=4 2)+(I=47)T.Y=Y+1 

00150 1=1+1 

00155 IFI=65T.170 

00160 G.12'0 

00170 P.AT98,"TM" 

00180 P.AT292,"BEST OF CLOAD VOL. 1A" 

00190 F.X=0TO127 

00200 S.(X,0) 

00205 S.(X,15) 

00220 N.X 

00230 F.Y=0TO15 

00240 S.(0,Y) 

00245 S.(1,Y) 

00250 S.(127,Y) 

00255 S.(126,Y) 

00260 N.Y 

00265 R. (2,Y) :R. (125, Y) 

270 REST. 

00280 G.615 

00400 F.Y=21T033S.4 

00410 F.X=QTQ127 

00420 S. (X,Y) :S. (X,Y+1) 

00430 N.X.-N.Y 

00450 F.Y=37T045S.4 

00460 F.X=0TO127 

00470 S. (X,Y) :S. (X,Y + 1) 

00480 N.X: N.Y 

00510 F.L-1TO5030:N.L 

00515 GOS.980 

00520 IFZ=1G0T.REST. 

00530 F.M=384T0896S.64 

540 P. ATM 

'00550 N.M 

00560 P.AT960;" . «. 

00570 P." 

00615 READX 

00620 IFX=0T.650 

00625 IFX<0T.Y=-X:G.615 

00630 IFX>99T.Z=X:G.680 

00635 S.(X,Y) 

00640 S.(X+l r Y) 

00645 G.615 

006 50 READA 



00655 

00660 

00665 

00670 

00675 

00680 

00690 

00695 

00700 

00800 

00805 

00810 

00815 

00820 

00825 

00830 

00835 

00840 

00845 

00850 

00855 

00860 

00865 

00870 

00S75 

00880 

00885 

00890 

00895 

00900 

00905 

00950 

00955 

00960 

00965 

00980 

01000 

01010 

01020 

01030 

01040 

01050 

01060 

01065 

01070 



READB. • ...... 

F.X=ATOB 

S.(X,Y) 

N.X 

G.615 

READA$,Q 

P.AT409;"FLAG OF ";A$; 

S. (0,15) :S. (1,15) 

G.400 ' . 

0.-21,0,0,3,22,26,48,50,-22,4,6,22,26,44,46,-23,6,8,22,26 

D. 40, 42, -24, 10, 12, 22, 26, 36, 38, -25, 14, 16, 22, 26, 32, 34, -26,0 

D. 18, 23, 0,26, 31, -27, 0,0, 23, 0,26, 51, -29, 0,0, 23, 0,26, 51, -30 

D. 0,1 8, 23, 0,26, 31, -31, 14, 16, 22, 26, 32 ,34,-32,10, 12, 2 2, 26, 36 

D. 38, -3 3, 6, 8, 22, 26, 40, 42, -34, 4, 6,22, 26, 44, 4 6, -35, 0,0, 3, 22 
D. 26, 48, 50, 101, 1776, 53 

D. -21, 3, 41, -23, 17, 22, 27, -24, 12, 32, -27, 9, 36, -30, 8 ,0,16, 21 

D. 0,25, 28, 36, -31, 20, 24, -32, 19, 0,24, 28, -33, 8, 19, 24, 28, 36, -34 
D. 19, 0,25, 28, 101, 1777, 46 

D. -22, 14, -23, 8, 20, -25, 4, 24, -27, 2, 25, -29, 4, 24, -31, 7, 21, -32 
D. 11, 17, 101, 1777, 32 

0.-22,4,16,28,-25,10,22,34,-28,4,16,28,-31,10,22,34,-34 ' 

D.4, 16, 28, 101,1795,40 

D. -21, 2, 8, 14, 20, 26, 32, 38, 4 4, -24, 2, 8, 14, 20, 26, 32, 38 ,44 

D. -27, 2, 8, 14, 20, 26, 32, 38, 44, -30, 1,8, 14, 20, 26, 3 2 ,38, 4 4 

0.-33,2,8,14,20,26,32,38,4 4,-36,2,8,14,20,26,3 2,38,4 4 
D. 102, 1912, 49 

0.-22,2,8,14,20,26,32,38,-24,5,11,17,23,29,35,41 
D. -26, 2, 8, 14, 20, 26, 32, 38, -28, 5, 11, 17, 23, 29, 35, 4] 

0.-30,2,8,14,20,26,32,38,-32,5,11,17,23,29,35,41 

0.-34,2,8,14,20,26,32,38 

D. 100, 1959, 46 

D.l 1,1 3, 15, 21, 35, 37, 39, 4 7, 49, 51, 57, 59, 61, 63, 9, 17, 3 3, A 1,6 5 

D. 21, 4 5, 53, 57, 9, 33, 4 1,65, 21, 4 5, 47, 4 9, 51, 53, 57, 9, 33, 4 1,65 

0.21,45,53,57,9,17,33,41,65,11,13,15,21,23,25,27,29,35,37 

0.39,45,53,57,59,61,63 

P.AT392," 

ALL PROGRAMS CONTAINED HEREIN 
COPYRIGHT (C) 1978, CLOAD MAGAZINE 
BOX 1267 GOLETA, CA 93017. 
REPRODUCTION BY ANY MEANS PROHIBITED. 
CLOAD MAGAZINE ASSUMES NO RESPONSIBILITY 
FOR ERRORS, OMISSIONS OR DAMAGES CAUSED 
BY THE USE OF THESE PROGRAMS. 



P.AT456," 
P.AT520," 
P.AT584," 
P.AT648,'' 
P.AT712," 
P.AT776," 
P. ATS 4 0," 
P.AT904," 
F.L=1TO3500:N.L:RET. 
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Flags Level II 

00002 REM AUTHOR NEAL P. JENSEN, 1589 BLOSSOOM PK , LAKEWOOD, OH 44107 

) 00003 REM BYTES LEFT 13719/1431 

00010 CLS 

0020 READX 

00030 IFX=100THEN100 

00040 GOTO20 

00100 READA$,Q 

00110 Y=2:I=1 

00120 READX 

I 00130 SET(X,Y) . 

0014 IF (1=1 4) OR (1=19) OR (1=23) OR (1=27) OR (1=34) OR (1=30) OR (1=42) OR (1=47) THEN*s#- 

00150 1=1+1 ' 

00155 IFI = 65THEN170 f 7 Yf'~f 

00160 GOTO120 

00170 PRINT§98,"TM"; 

00180 PRINT@292 f "BEST OF CLOAD VOL. 1A" ; 

00190 FORX=0TO127 

00200 SET(X,0) 

00205 SET (X, 15) 

00220 NEXTX . » 

00230 FORY=0TO15 

00240 SET(0,Y) 

'00245 SET(1,Y) 

00250 SET(127,Y) 

00255 SET(125,Y) 

0260 NEXTY 

0-0265 RESET(2,Y) : RESET (1 25, Y) 

00270 RESTORE 

00280 GOT0615 

00400 FORY=21T033STEP4 

00410 F0RX=QT0127 

00420 SET(X,Y) :SET(X,Y+1) 

00430 NEXTX:NEXTY 

00450 F0RY=37T045STEP4 

00460 FORX=0TO127 

00470 SET(X,Y) :SET(X,Y+1) 

00480 NFXTX: NEXTY 

00510 FORL=1TO5000:NEXTL 

00515 GOSUB980 

00520 IFZ=100THENRESTORE 

00530 FORM=384T0896STEP64 

540 PRINT@M,,,," »• 

00550 . NEXTM 

00560 PRINT@960," ' « . 

570 PRINT" "; 

0615 READX 

00620 IFX=0THEN650 



00625 

00630 

00635 

00640 

00645 

00650 

00655 

00660 

00665 

00670 

00675 

00680 

00690 

00695 

00700 

00800 

00805 

00810 

00815 

00820 

00825 

00830 

00835 

00840 

00845 

00850 

00855 

00860 

00865 

00870 

00875 

-00880 

00885 

00890 

00895 

00900 

00905 

00950 

00955 

00960 

00965 

009S0 

01000 

01010 

01020 

01030 

01040 

01050 

01060 

01065 

01075 



IFX<0THENY=-X:GOTO615 - 

IFX>99THENZ=X:GOTO680 

SET(X,Y) 

SET(X+1,Y) 

GOT0615 

READA 

READS 

FORX=ATOB 

SET(X,Y) 

NEXTX 

GOT0615 

READA$,Q 

PRINT@4 9,"FLAG OF ";A$; 

SET(0,15):SET(1,15) 

GOTO400, 

DATA-21, 0,0, 3, 22, 26, 48,50, -22, 4, 6,22, 26. 44 46 -2? 6 R 99 ?c 

n2™?i ^ 'c ; 2 ^ 3 ;r 31 ' 14 ' 1G ' 22 ' 26 '32'34,-32,lB,12,22,26,36 
D^l.'-S 3 ^:^! 22 !^;^ 42 '" 34 ' 4 ' 6 ' 22 ' 26 '"' 46 '- 35 ' ' ' 3 -- 22 

Mwo 2 ^ 3 ^ 1 ^ 23 ^ 7 ^ 2 a 27 '; 24 ' 12 ' 32 '- 27 ' 9 ' 36 '- 30 ' 8 .e,i6,2i 

daK; 2 ^ 6 :^^ 

DATA-22, 14, -23, 0,20, -25, 4, 24, -27, 2, 25, -29, 4, 24, -31 7 21 -32 
DATA11 17 101 1777 \o *--',•*, -ii, jj.,/,zx, jz 

ntT^97'^^^^o^?^ 32 ' 38 ' 44 '- 24 ' 2 ' 8 ' l4 ' 20 ' 26 ' 32 '33,44 

SSI ' ' ' ' 20 ' 26 ' 32 ' 38 ' 44 '- 30 ' 1 ' 8 ' 14 ' 20 ' 2 6 / 32 38 44 
DAT^A^ 

^J~ 2 ?' 2 ' 8 ^ 4 ' 20 ' 26 ' 32 ' 38, -24, 5, 11, 17, 23, 29, 35, 41 

S" 'o'o'!'' 20 ' 26 ' 32 ' 38 '- 28 ' 5 ' 11 ' 17 23 29 35 41 
DATA-30, 2, 8, 14, 20, 26, 32, 38, -32, 5, 11, 17, 23, 29, 35 41 
DATA-34,2,8,14,20,26,32,38 
DATA1 00 ,1959,4 6 

PRINT@392," 

ALL PROGRAMS CONTAINED HEREIN 
COPYRIGHT (C) 1978, CLOAD MAGAZINE 
BOX 1267 GOLETA, CA 93017. 
REPRODUCTION BY ANY MEANS PROHIBITED. 
CLOAD MAGAZINE ASSUMES NO RESPONSIBlf IY 
FOR ERRORS, OMISSIONS OR DAMAGES CAUSED 



PRINT@456," 
PRINT@520," 
PRINT@584," 
PRINTQ648," 
PRINT@712," 
PRINT@776," 
PRINT@840," 
PRINTS904," 
FORL=1TO3500 



BY THE USE OF THESE PROGRAMS 
:NEXTL: RETURN 



Yield-To-Maturity Level I 

00002 REM C.W. EVANS, (602) 933-1616 

00003 REM BYTES LEFT 792 

00005 REM YIELD-TO-MATURITY 

00009 REM 7/7/78 

0010 REM 10 A.M. 

00040 S=10:REM CONVERGENCE FACTOR 

00049 CLS 

00050 P. TAB (20) ; "YIELD-TO-MATURITY": P. • 

00052 P." ' THIS PROGRAM COMPUTES BASIS BOOK YIELD-TO-MATURITY 

00054 P."(YTM) OR YIELD-TO-CALL FOR A BOND USING THE CONVENTIONAL 

00055 P. "30-DAY MONTH FOR CORPORATE, MUNICIPAL, AND MOST FEDERAL 

00056 P."AGENCY BONDS. IT APPROXIMATES TREASURIES WHICH ARE 
00058 P. "COMPUTED ON ACTUAL DAYS.":P. 

00060 P." SALE AND MATURITY DATES ARE ENTERED WITH THE MONTH 

00062 P." (NUMERICAL) , DAY, AND YEAR SEPARATED BY COMMAS. 

00063 P." NOTE: USE LAST 2 DIGITS ONLY FOR THE YEAR. 

00064 P. "SALE AND CALL PRICES ARE ENTERED PER HUNDRED DOLLARS OF 
00066 P. "MATURITY VALUE. COUPON RATES AND 'YTM' ARE IN PER CENT. 
0067 P.: I. "HIT ENTER WHEN READY " ; A$ : CLS : P . : P. 

00068 P." THE PROGRAM PERFORMS AN ITERATIVE SOLUTION, INITIALLY 

00070 P. "ESTIMATING 5 YTM«, COMPARING PRICE COMPUTED BY FORMULA TO 

00072 P. "THE SALE PRICE, THEN REFINING 'YTM', REPEATING THE PROCESS 

00074 P. "UNTIL THE DIFFERENCE BETWEEN THE COMPUTED AND SALE PRICE 

00076 P. "IS INSIGNIFICANT. 

00077 P.:I."HIT ENTER WHEN READY " ; A$ : CLS : P . : P. 
007 9 I. "WHAT IS COUPON RATE (%) " ; K 

00080 I. "WHAT IS SALE DATE " ; M , D, Y : V=Y+M/1 2+D/360 

00085 I. "WHAT IS MATURITY DATE " ; M , D, Y :W=Y+M/12+D/360 

00086 I."WHAT IS THE ASKED PRICE ";F' 
088 IFW<VW=W+100 

00 090 T=K:N=W-V 

00091 I. "ENTER 1 IF BOND CALLABLE, IF NOT.", -I 

0C092 IFI--0G.95 

00093 I. "WHAT IS CALL DATE " ; M , D, Y : Q=Y+M/1 2+D/360 

0094 I. "WHAT IS CALL PRICE " ; R 

00095 J=l-((2*N-INT(2*N))/2) 

00099 P. "DATES, COUPON RATE (%): 

00100 P.V;W,K 

00105 P. :P. "ITERATION— PRICE DIFFERENCE: 

00106 GOS.110 

00107 P. : P. : P. "YIELD-TO-MATURITY IS -';T;"% 

00108 G.200 
00110 U=T/200+l 

00120 X=U:Y=J:GOS.30120:G=P 



00130 X=U:Y-2*N:GOS.30120:G=G-1/P . 

00140 G=G*K/T i ■ 

00150 X=U:Y=2*N:G0S. 30120 :G=G+l/P-K*J/200 

00160 G=G*100 

00170 P.G-F; 

00180 IFABS(G-F)<.01G.197 ' 

00190 T=T+(G-F)/S 

00195 G.110 

00197 T=INT(100*T+.5)/100 

00198 RET. 
00200 IFI=0E. 

00210 P. . ' . 

00260 IFQ<VQ=Q+100 

00270 N=Q-V:F=100*F/R 

00280 GOS.110 

00290 P. :P.:P. "YIELD-TO-CALL IS ";T;"% 

30000 E. 

30100 REM EXPONENTIATION INPUT X,Y; OUTPUT P 

30110 REM ALSO USES E,L,A,B,C INTERNALLY 

30120 P=1:E=0:IFY=0T.RET. 

30130 IF(X<0)*(INT(Y)=Y)T.P=l-2*Y+4*INT(Y/2) : X=-X 

3014 IFXO0T.GOS. 30190 :X=Y*L:GOS. 30250 

30150 P=P*E:RET. 

30170 REM IN. X, OUTPUT L=LN, X=LOG 

30180 REM ALSO USES A,B,C INTERNALLY 

30190 E=0:IFX<0T.P."LOG UNDEFINED AT";X:STOP 

30195 A=1:B=2:C=.5 

30 20 IFX>AT.X=C*X:E=E+A:G.30200 

3 020 5 IFX<CT.X=B*X:E=E-A:G.30 205 

30210 X=(X-. 707107)/(X+. 707107) :L=X*X 

3 0215 L= (( (.598979*L+. 9614 71 )*L+2. 88539 )*X+E-. 5)*. 653147 

-30220 IFABS(L) <1E-6T.L=0 

30225 X=L/2.302585:RET. 

30240 REM EXPONENTIAL INPUT X, OUTPUT E 

3G245 REM ALSO USES L,A INTERNALLY 

30250 L=INT(1.4427*X)+1:IFL<127T. 30265 

30255 IF X>0T. P. "OVERFLOW" :STOP 

30260 E=0:RET. 

30265 E=.69 3147*L-X:A=1.32988E-3-1.41316E-4*E 

30270 A=( (A*E~8.30136E-3) *E + 4 . 16574E-2) *E 
3 0275 E=( ( (A-. 166665 )*E+. 5 )*E-l)*E+l:A-2 

3 0280 IFL<0T.A=.5:L=~L:IFL=0T..RET. 

3 285 F . X=1T0L : E=A*E : N . X : RET . 



Yield-To-Maturity Level II 



00002 REM C.W. EVANS, (602) 933-1616 

00003 REM 9806 AMBER TRAIL, SUN CITY AZ . 85351 

005 REM YIELD-TO-MATURITY 

00009 :REM.. 8/31/78 

00040 S=10:REM CONVERGENCE FACTOR 

00049 CLS 

00050 PRINTTAB(20) ; "YIELD-TO-MATURITY" : PRINT 

00052 PRINT" THIS PROGRAM COMPUTES BASIS BOOK YIELD-TO-MATURITY 

00054 PRINT" (YTM) OR YIELD-TO-CALL FOR A BOND USING THE CONVENTIONAL 

00055 PRINT"30-DAY MONTH FOR CORPORATE, MUNICIPAL, AND MOST FEDERAL 

00056 PRINT !, AGENCY BONDS. IT APPROXIMATES TREASURIES WHICH ARE 
00058 PRINT"COMPUTED ON ACTUAL DAYS.": PRINT 

00060 PRINT" SALE AND MATURITY DATES ARE ENTERED. WITH THE MONTH 

00062 PRINT" (NUMERICAL) , DAY, AND YEAR SEPARATED BY COMMAS. 

00063 PRINT" NOTE: USE LAST 2 DIGITS ONLY FOR THE YEAR. 

00064 PRINT"SALE AND CALL PRICES ARE ENTERED PER HUNDRED DOLLARS OF 
0066 PRINT"MATURITY VALUE. COUPON RATES AND 'YTM' ARE IN PER CENT. 
00067 PRINT:INPUT"HIT ENTER TO CONTINUE " ; A$ : CLS : PRINT : PRINT 

0068 PRINT" THE PROGRAM PERFORMS AN ITERATIVE SOLUTION, INITIALLY 

00070 PRINT"ESTIMATING 'YTM', COMPARING PRICE COMPUTED BY FORMULA TO 

00072 PRINT"TIIE SALE PRICE, THEN REFINING 'YTM', REPEATING THE PROCESS 

00074 PRINT" UNTIL THE DIFFERENCE BETWEEN THE COMPUTED AND SALE PRICE 

00075 PRINT"IS INSIGNIFICANT. 

00076 GOTO300 

00077 PRINT:INPUT"HIT ENTER WHEN READY " ; A$ : CLS : PRINT : PRINT 

00079 INPUT"WHAT IS COUPON RATE (%) " ; K 

00080 INPUT"WHAT IS SALE D/iTE " ; M , D, Y : V--Y+M/1 2+D/360 

008 5 INPUT "WHAT IS MATURITY DATE " ; M , D, Y : VJ=Y+M/12+D/36 

00086 INPUT"WHAT IS THE ASKED PRICE . " ; F ' 

00088 IFW<VTHENW=W+100 

090 T=K:N=W-V 

00091 INPUT"TYPE 1 IF BOND CALLABLE, IF NOT."; I 

00092 IFI=0GOTO95 

00093 INPUT-WHAT IS CALL DATE " ; M , D, Y : Q=Y+M/1 2+D/360 

00094 INPUT"WHAT IS CALL PRICE ";R 

00095 J=l-((2*N-INT(2*N))/2) 

00099 PRINT"DATES, ■ COUPON RATE (%): . 

00100 PRINTV;W,K 

00105 PRINT: PRINT" ITERATION— PRICE DIFFERENCE: 

00106 GOSUB110 

00107 PRINT: PRINT" YIELD-TO-MATURITY IS ";T;"S 

00108 GOTO200 
00110 U=T/200+l 



00120 G=(lTJ-lT(-2*N) )*K/T+tT (-2*N) -K*J/200 

00160 G=G*100 ' . 

00170 PRINTG-F; 

00180 IFABS (G-F)<.01GOTO197 

00190 T=T+(G-F)/S 

00195 GOTO110 

00197 T=INT(100*T+.5)/100 

00198 RETURN 
00200 IFI=0END 
00210 PRINT 

00260 IFQ<VTHENQ=Q+100 

00270 N=Q-V:F=100*F/R 

00280 GOSUB110 

00.290 PRINT:PRINT" YIELD-TO-CALL IS ";T;"% 

00291 PRINT 

00295 INPUT"TO WORK ANOTHER PROBLEM— HIT ENTER.";A$ 

00296 CLS:PRINT:PRINT:GOT079 
00300 PRINT 

00^10 PRINT" THE PROGRAM USES THE FORMULA GIVEN IN THE 

00320 PRINT"MAY 1973 HEWLETT-PACKARD JOURNAL AS USED FOR THE 

00330 PRINT"HP-80 BUSINESS CALCULATOR. 

00340 GOT077 



Sandcastle Level I 



00500 CLS:N=2.434E-4:IN.»HI THERE! WHAT'S YOUR NAME';A$ 

0510 P.: P. "THIS IS THE GAME OF SAND CASTLE." 
00520 P. :M. "WOULD YOU LIKE INSTRUCTIONS" ; A 
00530 IFA=NT.P-"WISE GUY" :G. 700 

005 J S L L TJ ^ ortppt OF THIS GAME IS TO BUILD A MOUNTAIN 18 LAYERS " 

00560 P'"HIGH° YoS ARE GIVEN THREE MATERIALS TO WORK WITH: SAND GRAVEL, 

1 57 P.*"ANS BRIC°K. THE ADVANTAGE OF SAND IS THAT YOU GET A LOT OF IT 
tTnVaa p hthf DISADVANTAGE IS THAT IT WILL SLIDE IF YOU TRY TO STACK Ii 
nllll p"4So SToCNG TO START ALL OVER. (EVERY LAYER OF SAND 
lalll p'»MUST BE AT LEAST 6 METERS NARROWER THAN THE LAYER UNDERNEATH) 

P>GR U AVEL E CAN BRACKED STEEPER <^f Vo^aLo^/LsI ^f T f 

00620 P. "METERS SMALLER THAN THE ONE BELOW . ^U ALSO GET LESS OF IT. 

00630 P. "BRICKS CAN BE LAID STEEPEST OF ALL (WITHIN rWMEPCRS) _ 



00640 



00660 



00690 
00700 
00720 



P*»BUT IT'S EXPENSIVE - YOU GET VERY LITTLE OF IT. 



00650 P * „ m _™ m „ mJ ,Tn M tq Mtn MRTRRS WIDE. SO YOUR FIRST LAYER" 



p!"THE STARTING FOUNDATION IS 100 METERS WIDE, 



00670 P>MUST BE LESS THAN 95 METERS WIDE (OF SAND) " qFrTI0 N SO" 
VLeLn n h^ph T.AVRR TS 4 METERS THICK AND CIRCULAR IN CROSS SECTION, SU 



00680 P. "EACH LAYER IS 4 METERS 

P. "WIDE LAYERS USE UP A LOT OF MATERIAL. 
IN. "PRESS 'ENTER' TO START" ;B$ 
S=7.14 3E-6:G=4.5 52E-9:B=3.3 3 65E3 

00730 CLS:F=100:Y=47:H=0 

00735 E=88167:D=5039:C=262 r,„ T o„ « r 

lilli P.AT0," MATERIALS - SAMD:";E;" GRAVEL :' ';D; r« BF 1CK: ; C 

00750 P. "PROGRESS - LAYERS TO GO : " ; (Y-ll ) /2 ; THE BASE LA.ER IS ,b, 

00760 P. "METERS WIDE." 

00770 IN.* "HOW* MANY METERS WIDE" ; Z : IFZ>100T.Z = 100 

00780 V=INT(3.1416*(Z/2)*(Z/2)*4) on rn V \ pnn mpyt TAYFR»-A 

00784 IN. "WHICH MATERIAL (SAND, GRAVEL, 'OR BRICK) i OR NEXT LAYER ,A 

G079 P.AT0:P. :P. : P, : IFY>17T. P . : P. 

00792 P.AT0,""; 

00800 IFZ<1T.740 

0W810 IFA-ST.B$="SAND":GOS.870 

00820 IFA=GT.B$="GRAVEL":GOS.900 

00830 IFA=BT.B$="BRICK":GOS.930 

00840 IFH=1T.H=0:G.980 

00850 IFY=11T.1040 

00860 G.740 

00870 E=E-V:IFE<0T.E=E+V:G.960 

00880 IFZ>F-6T.H=1 

00890 F=Z:G.970 

00900 D=D-V:IFD<0T.D=D+V:G.960 
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00910 IFZ>F-4T.H=1 

00920 F=Z:G.970 

00930 C=C-V:IFC<0T.C=C+V:G.960 

00940 IFZ>F-2T.H=1 

00950 F=Z:G.970 

00960 P.:P.:P."NOT ENOUGH " ; B$ : P. : F . I=1TO2000 : N. I : RET. 

00970 F.X=64-INT(Z/2)T063+INT(Z/2+.6) :S. (X,Y) :S. (X,Y-1) : N .X : Y=Y-2 : RET . 

00980 P.AT0,"":P. :P. :P." * * * •'; B$ ; "SLIDE * * *" 

00990 F.I=1TO2000:N.I 

00992 CLS:P."YOU BUILT " ; (47-Y) /2 ; " LAYERS. THAT'S QUITE A PILE." 

01000 P.:IN."WOULD YOU LIKE TO TRY AGAIN" ; A : IFA=NT. P . " C . K, BYE":END 

01010 IN. "WOULD YOU LIKE TO REVIEW THE INSTRUCTIONS" ; A 

01020 IFA=NT.730 

01030 G.540 

01040 P.AT0.-P. :P. :P. 

01050 F.Y=47T016STEP-1:R. (64, Y) :N.Y 

01060 F.Y=11TO0STEP-1:S. (64, Y) :N.Y 

01070 F.X-65T079:S. (X,0):S.(X,1):S.(X,2):S.(X,3):S.(X,4):N.X 

01080 P.A$;"'S CASTLE"; 

01090 G.1090 



Sandcastle Level II 

00500 CLS:N=2.434E-4:INPUT"HI THERE! WHAT'S YOUR NAME";A$ 

00510 PRINT: PRINT"THIS IS THE GAME OF SAND CASTLE." 

00520 PRINT: INPUT"WOULD YOU LIKE INSTRUCTIONS" ;A$ 

00530 IFLEFT$ (A$ , 1 ) ="N"THENPRINT"WISE GUY":GOTO700 

00540 CLS 

00550 PRINT"THE OBJECT OF THIS GAME IS TO BUILD A MOUNTAIN 18 LAYERS " 

00560 PRINT"HIGH. YOU ARE GIVEN THREE MATERIALS TO WORK WITH: SAND, GRAVEL r 

00570 PRINT"AND BRICK. THE ADVANTAGE OF SAND IS THAT YOU GET A LOT OF IT." 

00580 PRINT"THE DISADVANTAGE IS THAT IT WILL SLIDE IF YOU TRY TO STACK IT" 

590 PRINT" TOO STEEP, FORCING YOU TO START ALL OVER. (EVERY LAYER OF SAND" 

00600 PRINT"MUST BE AT LEAST 6 METERS NARROWER THAN THE LAYER UNDERNEATH)" 

00610 PRINT"GRAVEL CAN BE STACKED STEEPER- (EVERY LAYER MUST BE AT LEAST 4" 

00620 PRINT"METERS SMALLER THAN THE ONE BELOW). YOU ALSO GET LESS OF IT." 

00630 PRINT"BRICKS CAN BE LAID STEEPEST OF ALL. (WITHIN TWO METERS)" 

00640 PRINT"BUT IT'S EXPENSIVE - YOU GET VERY LITTLE OF IT." 

00650 PRINT 

00660 PRINT"THE STARTING FOUNDATION IS 100 METERS WIDE, SO YOUR FIRST LAYER 

00670 PRINT"MUST BE LESS THAN 95 METERS WIDE (OF SAND)." 

00680 PRINT" EACH LAYER IS 4 METERS THICK AND CIRCULAR IN- CROSS SECTION, SO" 

00690 PRINT"WIDE LAYERS USE UP A LOT OF MATERIAL." 

00700 INPUT"PRESS 'ENTER* TO START" ;B$ 

00720 S=7.143E-6:G=4.552E-9:B=3.3365E3 

00730 CLS:F=100:Y=47:H=0 

00735 E=88167:D=5039:C=262 

00740 PRINT@0," MATERIALS - SAND:",-E;" GRAVEL :"; D; " BRICK:";C 

00750 PRINT"PROGRESS - LAYERS TO GO: " ; (Y-ll ) /2 ; " THE BASE LAYER IS";F; 

00760 PRINT ,! METERS WIDE." 

00 765 PRINT: PRINT: PRINTQ 128,""; 

00770 INPUT" HOW MANY METERS WIDE" ; Z : IFZ>1 00THENZ=100 

078 V=INT(3.1416* (Z/2) *(Z/2) *4) 

00784 INPUT"WHICH MATERIAL (SAND, GRAVEL, OR BRICK) FOR NEXT LAYER" 

;A$:A$=LEFT$ (A$,l) 

00790 PRINT@0, , , ," ":FRINT:PRINT:PRINT:IFY>17THENPRINT:PRINT 

00792 PRINT@0,""; 

00800 IFZ<1THEN740 

00810 IFA$="S"THENB$="SAND" : A=S :GOSUB870 

00820 IFA$="G"THENB$="GRAVEL":A=G:GO3UB900 

00830 IFA$="B"THENB$="BRICK":A=3:GOSUB930 

00840 IFH=1TKENH=0:GOTO980 

00850 IFY=11THEN1040 

00860 GOTO740 

00870 E=E-V:IFE<0THENE=E+V:GOTO960 

00880 IFZ>F-6THENH=1 

00890 F=Z:GOTO970 

00900 D=D-V:IFD<0THEND=D+V:GOTO960 

00910 IFZ>F-4THENH=1 

00920 F=Z:GOTO970 

009 30 C=C-V:IFC<0THENC=C+V:GOTO960 



00940 IFZ>F-2THENH=1 

00950 F=Z:GOTO970 

00960 PRINT:PRINT:PRINT"NOT ENOUGH "; B$ : PRINT : FORI=1TO2000 : NEXTI : RETURN 

00970 FORX=64-INT(Z/2)T063 + INT(Z/2 + .6) :SET(X,-Y) : SET (X, Y-l ) : NEXTX: Y-Y-2 : RETK 

00980 PRINT@0 f "":PRINT:PRINT:PRINT" * * * "; B$ ; "SLIDE * * *" 

0099-0 FORI = 1TO2000:NEXTI 

00992 CLS:PRINT"YOU BUILT " ; (47-Y) /2 ; " LAYERS. THAT'S QUITE A PILE." 

01000 PRINT: INPUT"WOULD YOU LIKE TO TRY AGAIN" ; A$ : IFLEFT$ (A$ , 1 ) =»N"THEN . 

PRINT" O.K, BYE": END 

01010 INPUT"WOULD YOU LIKE TO REVIEW THE INSTRUCTIONS" ; A$ 

01020 IFLEFT$(A$,1)="N"THEN730 

01030 GOTO540 

01040 PRINT@0, , , ,"":PRINT:PRINT:PRINT 

01050 FORY=47T016STEP-l:RESET(64,Y) :NEXTY 

01060 FORY=11TO0STEP-1:SET(64,Y) :NEXTY 

01070 FORX=65TO79:SET(X,0):SET(X,l):SET(X,2):SET(X f 3):SLT(X,4):NEXTX 

01080 PRINTA$; H, S CASTLE"; : ' 

01090 GOTO1090 



00100 GOS.5050:GOS.1500:GOS.2000:G.3000 l3 

200 REM DRAW KNIGHT 14 k( I & UT ' £ ~T>* 

00250 /.I = 1T05 ' * n/i/^fff > JO 

00260 r Z=V+i-l 




00270 IFI = U=W:K=W+2 . JJ/Tf- t ,— , ,F? / / 

00280 IFI=2J=W-l:K=W+3 . / ^£/ £- t — -J-~~ 

00290 IFI=3J=W+l:K=W+4 , l^^ 

00300 IFI=4J=W:K=W+3 

00310 IFI=5J=W-l:K=W+4 

00400 F.X=JTOK 

00410 IFS=1S. (X,Z) :G.450 

00420 R.(X,Z) 

00450 N.X - » 

00460 N.I 

00470 IFS=1S. (W-2,V+2) :S. (W-l,V+2) 

00480 IFSOIR. (W-2,V+2) :R. (W-l,V+2) 

00500 RET. 

01500 REM INITIALIZE 

01510 A=1:B=2:C=3:D=4:E=5:F=6:G=7:H=8:Y=1:M=2 

01515 S=2:O=0 

01520 CLS:P. "INITIALIZING"; 

01530 F.I=1TO128:A(I)=0:N.I 

01990 RET. 

02000 REM BOARD 

02010 CLS:F.I=0TO3 

02030 F.J=0TO60STEP20 

02040 F.V=6TO10 

02050 F.K=0TO9 

02060 S. (K+J,V+I*10) 

02070 S. (K+J+10,V+5+I*10) 

02080 N.K:N.V:N.J:N.I 

02150 F.I=1T04 

02155 J=43+128*I 

02160 P.A.J, I; 

02165 P.A.J+448,I+4; 

02170 N.I 

02200 IFO=0G.2800 

02210 F.I=65T0128 

02220 IFA(I)=0G.2500 

02230 J=A(I)/8 

02240 K=8*(J-INT(J) ) 

02245 J=INT{J)+1 

02250 IFK=0K=8:J=J-1 

02255 A=l 

£2256 IF(INT( (J+K)/2)-(J+K)/2)=0R. ( 1 0*K-9, 5 *J + 5) :R. ( 1 0*K-8, 5*J + 5) : A=0 

02260 IFA=1S. (10*K-9,5*J + 5]:S, (1 0*K-8, 5*J + 5) 

02280 A=l 

02300 GOS.7000 

02500 N.I 

02800 P.A.66,"A B C D E F G H"; 

02900 RET. 

3000 REM MOVE 

03100 P.A.I; :IN. "START AT (X,Y)";L,M 

03102 GOS.2800 

310 5 p=L+2:Q=M+l:GOS.9 000:IFI=0G.3 250 

03110 G.3100 

03130 P. A. 40, "ILLEGAL MOVE "; 

03140 F.I=1TO1500:N.I 

03145 GOS.2800 

03150 P. A. 55," "; :P.A.40; :IN."NEXT MOVE (X,Y)°;L,M 

03155 GOS.2800 

03158 F.I=0TO1:F.J=6TO8:S. (I, J) :N.J:N.I 

03160 IFL=0GOS.2000:G.3350 

3210 G OS. 9000: 0NI+1G. 3250,3130 



03220 P. A. 40, "ALREADY VISITED"; :G. 3140 

03250 REM ERASE . 14 ' 

03255 IF S=2G.3300 

03260 S=AB<5'S-1> - - t.. 

03270 GOS.200 

03290 IFS=1R. (W-4,V+4) :R. (W-3,V+4) 

03295 IFSOIS. (W-4,V+4) :S. (W-3,V+4) 

03300 P=L:Q=M:S=1 

03310 IF INT( (P+Q)/2) = (P+Q)/2S=0 

03320 O=O+1:I=O+64:J=Q:K=P:GOS.7000 

•03330 I=P + 8*(Q-1) 

03340 A(I)=1:A(0+64)=I 

03350 V=5*Q+1 

03360 W=10*(P-l)+5 

03370 GOS.200 

03390 J=0:P.A.40,"":GOS.2800 

03395 P. A. 9,""; 

034 00 F.L=P-2TOP+2:F.M=Q-2TOQ+2:GOS.9 000:IFI=0J=J+1 

03410 N.M:N.L 

03450 P.A.0,"YOU HAVE"; J; "LEGAL MOVES" ;: IFJ=0G . 9700 

04800 G.3150 

05050 CLS: P. "KNIGHT'S TOUR IS A CLASSIC CHESS PROBLEM THE OBJECT" 

05060 P."OF WHICH IS TO MOVE A SINGLE KNIGHT TO EACH SQUARE OF" 

05070 P. "AN EMPTY CHESS BOARD WITHOUT VISITING THE SAME SQUARE" 

05080 P. "TWICE. YOU CAN START ON ANY SQUARE." 

06020 P."" :P."THE COMPUTER WILL KEEP TRACK OF ALL MOVES AND" 

06030 P."WILL NOT ALLOW AN ILLEGAL MOVE. IF NO LEGAL MOVE TO"- 

06035 P. "AN UNVISITED SQUARE IS POSSIBLE, THE GAME ENDS .. SQUARES" 

06040 P. "ARE REFERENCED BY A LETTER (A-H) AMD A NUMBER (1-8)." 

06050 P. "ENTER YOUR MOVE BY TYPING THE LETTER FIRST, FOLLOWED" 

06060 P. "IMMEDIATELY BY A COMMA AND THE NUMBER. THEN HIT ENTER." 

06070 P. "TO REDRAW THE BOARD AND ALL MOVES, ENTER 0,0" : P."" 

06080 INPUT"HIT ENTER WHEN YOU'RE READY TO BEGIN" ;A$ 

06500 RET. 

07000 R=I:I=I-64 

07020 P.A.178,I;"SQUARES"; 

07040 1=1/5 

07050 1=240+15* (I -INT (I) )+64*INT(I) 

07060 IFIOINT(I)I = INT(I)+l 

07100 IFK=1P.A.I,"A"; 

07110 IFK=2P.A.I,"B"; 

07120 IFK=3P.A.I,"C"; 

07130 IFK=4P.A.I,"D"; 

07140 IFK=5P.A.I,"E"; 

07150 IFK=6P.A.I,"F"; 

07160 IFK=7P.A.I,"G"; 

07170 IFK=8P.A.I,"H"; 

07200 1=1+1 

07210 IFJ=1P.A.I,"1"; 

07220 IFJ=2P.A.I,"2"; 

07230 IFJ=3P.A.I,"3"; 

07240 IFJ=4P.A.I,"4"; 

07250 IFJ=5P.A.I,"5"; 

07260 IFJ=6P.A.I,"6"; 

07270 IFJ=7P.A.I,"7"; 

07280 IFJ=8P.A.I r M 8"; 

07300 I=R 

07500 RET. 

09000 I=0:IF(L<l)+(L>8)+(M<l)+(M>8)I=liG.9 500 

09100 IFABS( (P-L)*(Q-M) ) <>2I=1 : G. 9500 

09200 IFA(L-8 + 8*M)O0I = 2 

09500 RET. 

09700 CLS: IN. "PLAY AGAIN"; A 

09710 IFA=YCLS:G.200 

09800 END 
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Knight's Tour Level II - 

00010 DIMM128) 

00100 GO6"bB5050:GOSUBl500:GOSUB2000:GOTO3000 ,, * * 

200 REM DRAW KNIGHT : 

00250 F0RI=1T05 

00260 Z=V+I-1 

00270 IFI = U=W:K=W+2 

00280 IFI=2J-W-l:K=W+3 

00290 IFI=3J=W+l:K=W+4 

00300 IFI=4J=W:K=W+3 

00310 IFI=5J=W~l:K=W+4 

0400 FORX=JTOK 

00410 IFS=1SET(X,Z) :GOTO450 

00420 RESET(X,Z) . 

00450 NEXTX 

00460 NEXTI 

00470 IFS=lSET(W-2,V+2) : SET (W-l , V+2) 

00480 IFSOlRESET(W-2,V+2) : RESET (W-l ,V+2) 

0500 RETURN 

01500 REM INITIALIZE 

01515 S=2:O=0 

•01520 CLS:PRINT"INITIALIZING"; 

01530 FORI=1TO128:A(I)=0:NEXTI 

01990 RETURN 

02000 REM BOARD 

02010 CLS:FORI=0TO3 

02030 FORJ=0TO60STEP20 

02040 FORV=6TO10 

02050 FORK=0TO9 

02060 SET(K+J,V+I*10) 

02H70 SET(K+J+10,V+5+I*10) 

02080 NEXTK:NEXTV:NEXTJ:NEXTI 

02150 F0RI=1T04 

02155 J=43+128*I 

02160 PRINT@J,I; ' . 

02165 PRINT@J+448, 1+4; 

02170 NEXTI 

02200 IFO=0GOTO2800 

02210 FORI=65T0128 

02220 IFA(I)=0GOTO2500 

02230 J=A(I)/3 

02240 K=8*(J-INT(J.)) 

02245 J=INT(J)+1 

02230 IFK=0K=3:J=J-1 

02255 A=l 

02256 IF(INT((J+K)/2)-(J+K)/2)=0RESET(10*K-9,5*J+5) : RESET (I0*K-8 , 5*J + 5) : /v 

02260 IFA=lSET(10*K-9,5*J+5) : SET {10*K-8, 5*J+S) 

02280 A=l 

02300 GOSUB7000 

02500 NEXTI 

02S00 PRINT@66,"A B C D E ' F G H"; 

02900 RETURN 

03000 REM MOVE 

03100 PRINT@l f ""; :INPUT"START AT (X, Y) "; L$,M 

03101 L=ASC(L$) :L=L-64 

03102 GOSUB2800 

03105 P=L+2:Q=M+1:GOSUB9 000:IFI=0GOTO3250 

03110 GOTO3100 

03130 PRINTP40, "ILLEGAL MOVE " ; 

03140 FORI=1TO15C0:NEXTI 

03145 GOSUB2800 

03150 PRINT@55, M " ; : PRINT@4 , " " ;,: IMPUT"NEXT MOVE (X, Y) " ; L$, M 

03151 L=ASC(L$):L=L-64 
03155 GOSUB2O00 



03158 FORI=0TO1:FORJ=6TO8:SET(I,J) :NEXTJ:NEXTI 

03160 IFL=0GOSUB2000:GQTO335L 

03210 GOSUB9000:QNI+1GOTO3250,3130 16 

03220 PRINT@40, "ALREADY VISITED' 1 ; :GOTO3140 

3250 REM ERASE 

03255 IF S=2GOTO3300 

03260 S=ABS(S-1) 

03270 GOSUB200 

03290 IFS=lRESET(W-4,V+4) : RESET (W-3 ,V+4) 

03295 IFSOlSET(W-4,V+4) : SET (W-3 , V+4) 

03300 P=L:Q=M:S=1 

03310 IF INT( (P+Q)/2)=(P+Q)/2S=0 

3320 0=0+1: 1=0+64 :J=Q:K=P:GQSUB7 300 

03330 I=P+8*(Q-1) 

03340 A(I)=1:A(0+64)=I 

03350 V=5*Q+1 

03360 W=10*(P-l)+5 

03370 GOSUB200 

3 390 J=0:PRINT@4 0,"" :GOSUB2800 

03395 PRINT§9 ""; 

03400 FORL=P-2TOP+2:FORM=Q-2TOQ+2:GOSUB9000:IFI=0J=J+1 

03410 NEXTM:NEXTL 

03450 PRINT@0,"YOU HAVE" ; J; " LEGAL MOVES" ;: IFJ=0GOTO3450 

04800 GOTO3150 

05050 CLS:PRINT"KNIGHT'S TOUR IS A CLASSIC CHESS PROBLEM THE OBJECT" 

05060 PRINT"OF WHICH IS TO HOVE A SINGLE KNIGHT TO EACH SQUARE OF" 

05070 PRINT"AN EMPTY CHESS BOARD WITHOUT VISITING THE SAME SQUARE" 

5080 PRINT"TWICE. YOU CAN START ON ANY SQUARE." 

06020 PRINT"" :PRINT"THE COMPUTER WILL KEEP TRACK OF ALL, MOVES AND" 

06030 PRINT"WILL NOT ALLOW AN ILLEGAL MOVE. IF NO LEGAL MOVE TO" 

06035 PRINT"AN UNVISITED SQUARE IS. POSSIBLE, THE GAME ENDS. SQUARES" 

06040 PRINT"ARE REFERENCED BY A LETTER (A-H) AND A NUMBER (1-8)." 

06050 PRINT"ENTER YOUR MOVE BY TYPING THE LETTER FIRST, FOLLOWED" 

06060 PRINT" IMMEDIATELY BY A COMMA AND THE NUMBER. THEN HIT ENTER." 

06070 PRINT"TO REDRAW THE BOARD AND ALL MOVES, ENTER 0, 0" : PRINT" " 

06080 INPUT"HIT ENTER WHEN YOU'RE READY TO BEGIN" ;A$ 

06500 RETURN 

07000 R=I:I=I-64 

07020 PRINT@178, I, -"SQUARES", • 

07040 1=1/5 

07050 I=240+15*(I-INT(I) )+64*INT(I) 

07060 IFIOINT(I) I = INT(I)+1 

07100 IFK=iPRINT@I,"A"; 

07110 IFK=2PRINT@I,"B"; 

07120 IFK=3PRINT@I/ , C"; 

07130 IFK=4PRINT@I,"D :: ; 

07140 IFK=5PRINT@I,"E"; 

07150 IFK=6PRINT@I,"F"; 

07160 IFK=7PRINT@I, "G"; 

07170 IFK=8PRINT@I,"H"; 

07200 1=1+1 

07210 IFJ=1PRINT@I,"1"; 

07220 IFJ=*2PRINT@I,"2"; 

07230 IFJ = 3PRINT@I, !, 3"; 

7 240 irJ=4PRINT@I,"4"; 

07250 IFJ=5PRINT@I,"5"; 

7 260 IFJ=6PRINT@I, "6"; 

7 270 IFJ=7PRINT@I,"7"; 

07280 IFJ^8PRINT@I,"8"; 

07300 I=R 

07500 RETURN 

09000 I=0:IF(L<1)+(L>8)+(M<1)+(M>8)I=1:GOTO9500 

09100 IFABSf (?-L) *(Q-M) ) <> 21=1 : GOTO9500 

09200 1FA(L~8+8*M) <>3I=2 

9 50 RETURN 



00002 
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„„«,„«. RFM .AUTHOR CLOAD STAFF (RF) 

00003 REM BYTES LEFT 12605/317 

00010 CLS 

00020 f»************** WELCOME TO ONE POCKET POOL **************" 

00030 p!:IN. "WOULD YOU LIKE TO READ THE INSTRUCTIONS » ; I 

00040 IF I=N T. 60 

00050 GOS.1000 

00060 P=54321 

00085 P. AT898, *************** WELCOME TO ONE POCKE1 POOL 

00090 V=0: Z=0: C=50 

00100 F. X=10 TO110 

00105 Y=5 

00110 SET (X,Y) 

00115 Y=30 

00120 SET (X,Y) . 

00130 N.X 

00150 F. Y=5 TO 30 

00160 X=8 

00170 SET(X,Y) 

00174 X = 9 

00178 SET (X,Y) 

00180 X=110 

00190 SET (X,Y) 

00200 X=lll 

00210 SET (X,Y) 

00220 NEXT Y ■ . 

00305 F.Y=28 TO 30 

00310 F.X=106 TO 112 

00320 RESET (X,Y ) 

00330 NEXT X 

00335 NEXT Y 

00350 R=RND(98)+10 

00360 S=RND(23)+6 

00370 SET (R,S) 

00371 R=R+1 

00372 SET (R,S) 

00380 B=5 

00381 P. AT 

00382 P.AT3,"1" 

00383 P.AT(R/2)-2,R-9 

00384 P.AT56,"100 ! ' 

00385 A=60 
00390 C=A 

00400 P:AT 8 774;:IN.. "WHERE WOULD YOU LIKE THE BALL TO HIT THE RAIL"; A 

00405 A=A+9 

00410 IF A=54330 T. 500 

00414 IF (A>109)+(A<10)T.V=V+1:G.695 

00420 SET(C,B) 

00433 RESET (A,B) 

00440 G.390 

0500 REM. 

00505 B=6 

00510 D=(C-R)/(B-S)*(-1) 

00520 E=D*S+R 

00525 K=RND(3) 

00526 IF K=2 T. K=10 

00527 IF K=3 T. K=100 
00530 F.M=S TO B STEP -1 
00540 N=(M*D-E)*(-D 



00555 F.I = 1 TO K:N.I . 

00560 N.M , 18 

00600 T=((C-R)*2)+R . .. >■ • 

00610 D=(C-T)/(B-S)*(-1) 

00620 E=D*S+T i ' 

00630 F.M=B TO 30 

00640 N= (M*D-E)*(-1) 

00645 IF (N>110)*(M<28)+(N<10)T.680 

00650 SET(N,M) 

00660 F.I=1 TO K:N.I 

00670 N.M 

00680 . F.I = 1 TO 1000 :N.I 

00694 IF(N>=106)*(M>27)T.Z=Z+1 :G.699 

00695 V=V+1 • ■ • ■ 

Hill p:a?903,»OF» ; V + Z;«SHOT(S); ";Z;"INTHE POCKET, -; V; "MISSED. « 

00710 F. 1=133 TO 581 STEP 64 

00720P.ATI -■--- 

00730 N.I 

00735 P. AT 693 

00740 SET (C,5) * . . 

00750 F.I = 5 TO 27 . 

00755 J=lll 

00760 SET(J,I) 

00770 J = 112 

00780 SET(J,I) 

00790 N.I 

00800 G.350 

00999 G.999 

01000 REM. 

01010 *"" THIS IS A GAME OF SKILL. THE COMPUTER WILL DRAW A POOL" 

01020 Pi "TABLE ON THE SCREEN. THIS POOL TABLE ONLY HAS ONE POCKET." 

01030 p!"THE COMPUTER THEN PLACES A SQUARE BALL SOME WHERE ON THE 

l\Ht P:- TAB ThI o1^"to"pUT THE 'BALL' IN THE CORNER POCKET BY" 

01060 P. "BOUNCING THE 'BALL' OFF THE OPPOSITE RAIL." 

01070 P." YOU DETERMINE WHERE THE BALL HITS THE RAIL AT THE TOP -OF 

01083 P. "THE SCREEN. THE COMPUTER WILL ASK: 'WHERE WOULD YOU LI KE 

01090 P. "THE BALL TO HIT THE RAIL ?» ENTER A NUMBER BETWEEN 1 AND 

01100 P. "100 (DON'T GET CUTE HERE, OR THE COMPUTER WILL GET YOU). 
01110 IN." WHEN YOU WISH TO TURN THE PAGE PRESS ENTER", -A$ • 

fti 1 1 O (A pr c 

01130 P. "THE COMPUTER WILL 'NOTCH' THE RAIL TO SHOW YOU WHERE YOU" 
01140 P "WILL SEE THE 'BALL' BOUNCE OFF THE RAIL. IF YOU DON'T LIKE 
01150 P "THAT SPOT ENTER ANOTHER NO. BETWEEN 1 AND 100 TILL THE NOiCh 
01160 P. "IS JUST WHERE YOU WANT IT. WHEN YOU'RE SATISFIED, PRESS 
01165 P.-P -FOR POOL OF COURSE) AND ENTER. A DOTTED LINE WILL 
01180 P. "THEN SHOW YOU THE PATH OF THE BALL. IF IT GOES INiO TH. ^ 
01190 P. "POCKET YOU CHOSE WELL; IF NOT, WELL TRY AGalN. THE S^QRE ifa 
01200 P. "KEPT FOR YOU AT THE BOTTOM OF THE SCREEN." „„„,„„ „,«*» 

01210 P " IF vou GOOF AND PRESS ENTER WITHOUT A NUMBER TO ENTER THE" 
lllll Pl-COMPUTER WILL ASK 'WHAT?'. THIS WILL DISPLACE THE POOL TABLE" 
01230 P "SO MUCH THE ONLY WAY OUT IS TO START OVER. BE CAREFUL ! 
01232 P " ONE MORE THING: WHEN THE 'BALL' IS PLACED ON THE TABLE 
01234 P. "YOU WILL NOTICE THE COMPUTER HAS LISTED THE POSITION ON Thj 
01236 P["RAIL DIRECTLY OPPSITE THE BALL. THIS IS TO AID YOU IN YOUR' 
01250 IN." WHEN YOU WISH TO TURN' THE PAGE PRESS ENTER";A$ M 

01252 ^"SELECTION OF THE SPOT WHERE YOU WANT THE BALL TO BOUNCE OFF" 
01254 P. "THE RAIL. " ' 

01290 In"" WHEN YOU ARE°READ? TO PLAY 'ONE POCKET POOL' PRESS ENTER" ;A$ 
01300 RET. 



• Pool Level II 

00002 REM AUTHOR CLOAD STAFF . (RF) ' l9 

00003 REr-"*3YTFS LEFT 12605/317 ^ - - ? • 
00010 CLS 

00015 N=12345 . ■ iJ . J .* J .„ 

00020 print"************** WELCOME TO ONE POCKET POOL **************" 

00030 PRINT: INPUT-WOULD YOU LIKE TO READ THE INSTRUCTIONS ";I$ 

00040 IFLEFT$ (I$,1)="N" THEN 60 

00050 GOSUB1000 

00060 P=54321 

00080 CLS 

00085 print@898, "************** WELCOME TO ONE POCKET POOL **************** 

00090 V=0: Z=0: C=50 

00100 FOR X=10 TO110 

00105 Y=5 

00110 SET (X,Y) 

00115 Y=30 

00120 SET (X,Y) 

00130 NEXTX 

00150 FOR Y=5 TO 30 • • 

00160 X=8 

00170 SET(X,Y) 

00174 X=9 

00178 SET (X,Y) 

00180 X=110 . • 

00190 SET (X,Y) 

00200 X=lll 

00210 SET (X,Y) 

00220 NEXT Y 

00305 FORY=2S TO 30 - 

00310 FORX=106 TO 112 . . 

00320 RESET (X,Y ) 

00330 NEXT X ... 

00335 NEXT Y 

00350 R=RND(98)+10 

00360 S=RND(23)+6 

00370 SET (R,S) 

00371 R=R+1 

00372 SET (R,S) 

00380 B=5 

00381 PRINT@0,,,," 

00382 PRINT@3,"i"; 

00383 PRINTS (R/2)-2,R-9; 

00384 PRINT@56,"100"; 

00385 A=60 
00390 C=A 

00395 PRINT@820," "; 

00400 PRINT@774,""; :INPUT"WHERE WOULD YOU LIKE THE BALL TO MIT THE RAIL";* 

£0402 IFVAL(A$)=0GOTO500 

00403 A=VAL(A$) 

00405 A=A+9 

00410 IF A=54330 THEN 500 

00414 IF (A>109) + (A<10)THENV=V+1:GOTC*)95 

00420 SET(C,B) 

00430 RESET (A,B) 

00440 GOTO390 

00500 REM. 

00505 B=6 

00510 D=(C-R)/(B-S)*(-1) 

00520 E=D*S+R 

00525 K=RND(3) 

00526 IF K=2 THEN K=10 

00527 IF K=3 THEN K=100 
03530 FORM=S TO B STEP -1 

n n c A a >.i _ I M * n_ KM * I _ 1 "i 



00550 SET(N,M) 

00555 F0RI=1 TO K:NEXTI # - ' „ ( 

00560 NEXTM 

00600 T=( (C-R)*2)+R 

00610 D=(C-T)/(B-S)*(-1) 

00620 E=D*S+T 

00630 FORM=B TO 30 

00640 N=(M*D-E)*(-1) 

00645- IF (N>110)*(M<28)+(N<10)THEM680 

00650 SET(N,M) 

00660 FORI=l TO K:NEXTI 

00670 NEXTM 

00680 FORI=l TO 1000 :NEXTI 

00694 IF(N>=106)*(M>27)THENZ=Z+1 :GOT0699 

00695 V=V+1 

00699 PRINT@896, , , ," "» 

00700 PRINT@903,"OF";V+Z;"SHOT(S); ";Z;"IN THE POCKET, ";V;"MISSED. 

00710 FORI=133 TO 581 STEP 64 

00720 PRINT@ I,,,," 

00730 NEXTI 

00735 PRINT@693,"" 

00740 SET (C,5) 

0^750 FORI=5 TO 27 

00755 J=lll 

00760 SET(J,I) 

00770 J-112 

00780 SET(J,I) 

00790 NEXTI 

00800 GOTO350 

00999 GOT0999 

01000 REM. ■ ' 

01010 PRINT" THIS IS A GAME OF SKILL. THE COMPUTER WILL DRAW A POOL" 

01020 PRINT"TABLE CN THE SCREEN. THIS POOL TABLE ONLY HAS ONE POCKET. 

01030 PRINT" THE COMPUTER THEN PLACES A SQUARE BALL SOME WHERE ON THE 

01040 PRINT" TABLE AT RANDOM. " _ rr , m 

01050 PRINT" THE OBJECT IS TO PUT THE 'BALL' IN THE CORNER POCKET BY' 

01060 PRINT-BOUNCING THE 'BALL 1 OFF THE OPPOSITE -RAIL . " 

01070 PRINT" YOU DETERMINE WHERE THE BALL HITS THE RAIL AT THE TOP OF 

01080 PRINT-THE SCREEN. THE COMPUTER WILL ASK: 'WHERE WOULD YOU LIKE 

01090 PRINT"THE BALL TO HIT THE RAIL ?« ENTER A NUMBER BETWEEN 1 AND" 

01100 PRINT"100 (DON'T GET CUTE HERE, OR THE COMPUTER WILL GET YOU). 

01110 INPUT" WHEN YOU WISH TO TURN THE PAGE PRESS ENTER" ;A$ 

01130 PRINT'-THE COMPUTER WILL 'NOTCH' THE RAIL TO SHOW YOU WHERE YOU" 

01140 PRINT»WILL SEE THE 'BALL' BOUNCE OFF THE RA- . IF YOU DON T LIK- 

01150 PRINT-THAT SPOT ENTER ANOTHER NO. BETWEEN 1 ID 100 iILL TH| NOxCH 

01160 PRINT"IS JUST WHERE YOU WANT IT. WHEN YOU'RE SATISFIED, PRESo 

01165 PRINT"P (FOR POOL OF COURSE) AND ENTER. A DOTTED LINE WILL 

01180 PRINT-THEN SHOW YOU THE PATH OF THE BALL. IF IT GOES INTO THE 

01190 PRINT" POCKET YOU CHOSE WELL; IF -NOT, WELL TRY AGAIN. THE SCORii IS 

01200 PRIHT"KEPT FOR YOU AT THE BOTTOM OF THE SCREEN." 

01210 PRINT" IF Ynu GOOF AND PRESS ENTER WITHOUT A NUMBER TO ENTER THE 

01720 PRINT"COMPUThR WILL ASK 'WHAT?'. THIS WILL DISPLACE THE POOL TABLE' 

01^30 PRINT" SO MUCH THE ONLY WAY CUT IS TO START OVER. BE CAREFUL!!' 

01232 PRINT" ONE MORE THING: WHEN THE 'BALL' IS PLACED ON THE TABLE" 

01234 PRTNT-YOU WILL NOTICE THE COMPUTER HAS LISTED THE POSITION ON THE 

01236 PRINT-RAIL DIRECTLY OPPSITE THE BALL. THIS IS TO AID YOU IN YOUR 1 

01250 INPUT" WHEN YOU WISH TO TURN THE PAGE PRESS ENTER". ;A$ 

01251 CLS 

01252 PRINT"SELECTION OF THE SPOT WHERE YOU WANT THE BALL TO BOUNCE OFF" 

01254 PRINT"THE RAIL. " 

1260 PRINT" GOOD LUCK" , it , . 

01290 INPUT" WHEN YOU ARE READY TO PLAY 'ONE POCKET POOL' PRESS ENT t R";A* 

0130 RETURN 
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00001 
00002 
00003 
00005 
00008 
00009 
00010 
00012 
00013 
00014 
00015 
00016 
00018 
00020 
00021 
00022 
00024 
00026 
00027 
00028 
00030 
00032 
00034 
00036 
00037 
00038 
00040 
00042 
00043 
00044 
00046 
00048 
00050 
00052 
00054 
00056 
00058 
00060 
00062 
00064 
00065 
00066 
00068 
00070 
00072 
00102 
00105 
00108 
00110 
00120 
00125 
00130 
00140 
00145 



Y = MX + B Level I 

N = 123 

REM AUTHOR CLOAD STAFF (RF) 
BYTES LEFT 13360/1072 



REM 
rr q 



R=0 
W=0 



S=0:O=0:P=0 



CALIBRATED BY AAA. YOU NOTICE THAT 
NEED TO KNOW HOW FAST YOUR GOING WHEN 
MPH, NEGITIVE PERSPIRATION. 



E=0 
P. "THIS PROGRAM WILL TAKE TWO SETS OF DATA AND REDUCE THEM TO AN 
P. "EQUATION FOR A . LINE THAT CAN BE USED TO ESTIMATE OTHER VALUES, 
P.: IN. "DO YOU WISH INSTRUCTIONS " ; X 
N=0:IFX=123G.66 
P.:P."LETS TAKE AN EXAMPLE. 
P. "YOUR SPEEDOMETER WAS JUST 
P. "THEY STOP AT 55 MPH. YOU 
P. "YOUR SPEED0METER SAYS 100 
GOS.1000 

P. "THE DATA THEY GAVE 
"SPEEDOMETER 

30" ;T. (23) ;" 

35";T.(23);" 

40";T. (23) ;" 

45" ;T. (23) ; " 

50" ;T. (23) ;" 

55" ;T. (23) ; " 
:P."THE COMPUTER 



P. 
P. 
P. 
P. 

P. 

P. 

P. 

P. 

P 

P 



YOU IS AS 
ACTUAL 
30" 
34" 
38" 
4 3" 
47" 
52" 
WILL ASK THE 



FOLLOWS: 
SPEED" 



NAMES OF THE TWO SETS OF DATA. 
IN THE EXAMPLE USED HERE 
SPEEDOMETER; THE SECOND IS ACTUAL SPEED. 
THE COMPUTER WILL ASK : FOR tTHE DATA, ALTERNATELY. WHEN YOU 
PLACED ALL THE DATA YOU HAVE IN THE COMPUTER ENTER ZERO 



"YOU WILL HAVE YOUR OWN NAMES 

"THE FIRST NAME IS 
P. "THEN 
P . " HAVE 
GOS.1000 



SPEED, 



'HIS STARTS THE 



"FOR BOTH SPEEDOMETER AND ACTUAL 

"CALCULATING. THE COMPUTER WILL THEN SHOW YOU THE EQUATION FOR 
"THE CONVERSION. IT WILL ASK YOU FOR A VALUE FOR THE SPEED- 
OMETER AND GIVE YOU THE CALCULATED VALUE OF ACTUAL SPEED. 
"IF YOU WOULD LIKE THE INFORMATION IN REVERSE; THAT IS, 
P. "WHAT WILL YOUR SPEEDOMETER SAY -WHEN YOUR GOING 55 OR EVEN 
P. "100 MPH ACTUAL SPEED, ENTER 12345. THIS WILL TRIGGER THE 
P. "COMPUTER TO ASK THE QUESTION THE OTHER WAY. AFTER ALL, 
P. "A MAN NEEDS A CAR THAT WILL GO 100 MPH TO GET TO WORK, 
P. "DOESN'T HE? 



GOS.1000 

CLS 

IN. "WHAT 

IN. "WHAT 

P. : P. "WHAT 

P. "WHAT IS 



WILL YOU CALL YOUR FIRST SET OF DATA ";A$ 
WILL YOU CALL YOUR SECOND SET OF DATA ";B$ 
IS THE VALUE FOR THE ";A$;:IN.X 
THE CORRESPONDING VALUE FOR THE ";B$;:IN. 



IF(X=0)*(Y=0)G.150 

N=N+1 

P. "YOU HAVE ";N;" SET(S) 

R=R+X 

0=0+X*X 

E=E+Y*Y 

P=P+Y 

Q=Q+X*Y 

G.70 



OF DATA IN THE COMPUTER. 
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00150 M=(N*Q-R*P)/(N*0-R*R) 

00160 B=(0*P-R*Q)/(N*0-R*R). 

00169 CLS :." . 

00170 P."Y =";M;"X + (";3,-")" 

00180 P. "IF THE ";A$;'« IS/ARE »;:IN,A 

00185 IFA=12345G.300 

00190 P. "THE ";B$;" IS/ARE ";A*M+B 

00195 P. 

00200 G.180 

00300 W=W+1 

00310 U=W/2-INT(W/2) 

00320 IFU=0G.150 

00330 IFUO0G.400 

00400 M=(N*Q-R*P)/(N*E-P*P) 

00410 B=(E*R-P*Q)/(N*E-P*P) 

00430 CLS 

00440 P."X =";M;"Y +■ (";B;")" 

00450 P. "IF THE ";B$;" IS/ARE ";;IN.A 

00455 IFA=12345G.300 

0046 P. "THE ";A$;" IS/ ARE ";A*M+B 

00470 P. 

00480 G.450 . „„ „ »* 

01000 P.: IN. "PRESS ENTER TO TURN THE PAGE ";A$ 

01001 CLS:RET. 
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Y = MX + B Level II 

00002 REM AUTHOR CLOAD STAFF (RF) 

00003 REM BYTES LEFT 13360/1072 
00005 CLS 

00008 R=0:Q=0:S=0:O=0:P=0 ■'•' 

00009 W=0:E=0 • •"•■•• 

00010 PRINT"THIS PROGRAM WILL- TAKE TWO SETS OF DATA AND REDUCE THEM TO AN 

00012 PRINT"EQUATION FOR A LINE THAT CAN BE USED TO ESTIMATE OTHER VALUES. 

00013 PRINT: INPUT"DO YOU WISH INSTRUCTIONS ";X$ 

00014 N=0:IFLEFT$ (X$, 1 ) ="N"THEN66 

0015 PRINT: PRINT" LETS TAKE AN EXAMPLE. 

00016 PRINT"YOUR SPEEDOMETER WAS JUST CALIBRATED BY AAA. YOU NOTICE THAT 

00018 PRINT"THEY STOP AT 55 MPH. YOU NEED TO KNOW HOW FAST YOUR GOING WHE 

00020 PRINT"YOUR SPEED0METER SAYS 100 MPH, NEGITIVE PERSPIRATION. 

00021 GOSUB1000 

022 PRINT" THE DATA THEY GAVE YOU IS AS FOLLOWS: 

00024 PRINT"SPEED0METER ACTUAL SPEED" 



00026 PRINT" 30";TAB(23) 

00027 PRINT" 35";TAB(23) 

00028 PRINT" 40";TAB(23) 
00030 PRINT" 45";TAB(23) 
00032 PRINT" 50";TAB(23) 
00034 PRINT" 55";TAB(23) 



30" 

3 4" 
38" 

4 3" 
.47'! ; - • 

52" ; 

00036 PRINT:PRINT"THE COMPUTER WILL ASK THE NAMES ' OF THE TWO SETS OF DATA. 

00037 PRINT"YOU WILL HAVE YOUR OWN NAMES. IN THE EXAMPLE USED HERE 

00038 PRINT"THE FIRST NAME IS SPEEDOMETER; THE SECOND IS ACTUAL SPEED. 
00040 PRINT"THEN THE COMPUTER WILL ASK FOR THE DAT'"\ f ALTERNATELY. WHEN YOt 

00042 PRINT"HAVE PLACED ALL THE DATA YOU HAVE IN THE COMPUTER ENTER ZERO 

00043 GOSUB1000 

00044 PRINT'TOR BOTH SPEEDOMETER AND ACTUAL SPEED, THIS STARTS THE 

00046 PRINT"CALCULATING. THE COMPUTER WILL THEN SHOW YOU THE EQUATION FOF 
0048 PRINT-THE CONVERSION. IT WILL ASK YOU FOR A VALUE FOR THE SPEED- 
00050 PRINT"OMETER AND GIVE YOU THE CALCULATED VALUE OF ACTUAL SPEED. 
00052 PRINT" IF YOU WOULD LIKE THE INFORMATION IN REVERSE; THAT IS, 
00054 PRINT"WHAT WILL YOUR SPEEDOMETER SAY WHEN YOUR GOING 55 OR EVEN ' 
00056 PRINT"100 MPH ACTUAL SPEED, ENTER 12345. THIS WILL TRIGGER THE 
00058 PRINT"COMPUTER TO ASK THE QUESTION THE OTHER WAY. AFTER ALL, 
00060 PRINT"A MAN NEEDS A CAR THAT WILL GO 100 MPH TO GET TO WORK, 
0062 PRINT"DOESN'T HE? 

00064 GOSUB1000 

00065 CLS 

00066 INPUT"WHAT WILL YOU CALL YOUR FIRST SET OF DATA " ;A$ 
00068 INPUT"WHAT WILL YOU CALL YOUR SECOND SET OF DATA ";B$ 
00070 PRINT: PRINT"WHAT IS THE VALUE FOR THE » ; A$; : INPUTX 

00072 PRINT"WHAT IS THE CORRESPONDING VALUE FOR THE ";B$;:INPUTY 

00102 IF(X=0)*(Y=0)GOTO150 

00105 N=N+1 

00108 PRINT"YOU HAVE " ; N ; " SET(S) OF DATA IN THE COMPUTER." 

00110 R=R+X 

00120 0=0+X*X 

00125 E=E+Y*Y 

00130 P=P+Y 

014 Q=Q+X*Y 

00145 GOTO70 
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00150 M=(N*Q-R*P)/(N*"G-R*R) 

00160 B= (0*P-R*Q)/(N*0-R*R) 

00169 CLS 

00170 PRINT"* =";M;"X + ( " ; B ; " ) " 

0180 PRINT" IF THE ";A$;" IS/ARE * ; : INPUTA 

00185 IFA=12345GOTO300 

00190 PRINT"THE ";B$;" IS/ARE ";A*M+B 

00195 PRINT 

00200 GOTO180 • • 

00 300 W=W+1 

00310 U=W/2-INT(W/2) 

00320 IFU=0GOTO150 

00330 IFUO0GOTO400 

00400 M= (N*Q-R*P)/(N*E-P*P) 

00413 B=(E*R-P*Q)/(N*E-P*P) 

00430 CLS 

00440 PRINT"X =";M;"Y + (";B,-")" 

00450 PRIMT"IF THE ";B$;" IS/ARE " ; : INPUTA 

00455 IFA=12345GOTO300 

00460 PRINT-THE ";A$;" IS/ARE "";A*M+B 

00470 PRINT 

004S0 GOTO450 

01000 PRINT: INPUT"PRESS ENTER TO TURN THE PAGE ";A$ 

01001 CLS:RETURN 



«J 
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Break Level I 

00500 IFN=7.2135E-5T.600 

00510 N=7.2135E-5:CLS:P."THE GAME OF BREAK" : P. :M=0 :G=0 

00520 P. "BREAK THE WINDOW, THAT IS ..." 

00530 P.:IN."DO YOU WANT INSTRUCTIONS" ; A : IFAONT.GOS . 9 00 

00540 CLS:F.I=0TO23:S. (127,1) :N.I 

00550 T=RND(5):P.AT512,""; 

00560 F.X=1T063:R. (X-1,11):S. (X,ll) :F.I=1T0T:N.I:N.X 

570 F.X=64T0126:R. (X-1,11) :R. (X,ll) : F. I=1T0T:N. I :N.X 

00580 P. "TOO LATE - THE BRICK JUST BROKE THE WINDOW" 

00590 F.I=1TO2000:N.I " 

00600 S=INT( (X-64) *1.61+.5) 

00610 IFS>100T.S=0:G.630 

00620 S. (X,ll) 

00630 P.:P."YOUR SCORE FOR THIS THROW IS" ; S ; "POINTS" . . ; ' 

00640 G=G+S:M=M+1 : 

00650 P.:P."YOUR AVERAGE IS" ; G/M; "POINTS" 

00660 P.:IN."DO YOU WANT TO TRY AGAIN"; A 

00670 IFAONT.540 . * . ; • 

00680 CLS:IN."DOES ANYONE ELSE WANT TO PLAY'"; A ..■'.-.. ' , .;.; ; 

00690 IFAONT.510 ' •-..■:.', 

00700 P. "O.K. - BYE FOR NOW" : END 

00900 CLS ' •. I 

00901 P. ' 

00905 P. "I WILL DRAW A WINDOW ON THE RIGHT 3TDE OF THE SCREEN, AND THEN" 

00910 P. "I'LL LAUNCH A BRICK FROM THE LEFT SIDE. AT THE EXACT TIME THAT* 

0920 P. "THE WINDOW IS HIT, PRESS THE 'BREAK' BUTTON (AT THE TOP RIGHT" 

00930 P. "CORNER OF THE KEYBOARD). THE COMPUTER WILL SAY SOMETHING LIKE" 

00940 P. "'BREAK AT 570' OR SOME' SUCH TRASH. IGNORE IT AND TYPE IN 'RUN'" 

00950' P. "AND HIT THE 'ENTER' KEY. (AFTER ALL, YOU JUST BROKE THE WINDOW" 

00960 P. "WHAT ELSE DO YOU DO BUT RUN ?)" 

00970 P.: P. "THE ONLY REAL DIFFICULTY IS THAT THE BIONIC BRICK SPINS AT" 

00980 P. "SUPER-SPEED AND TURNS INVISIBLE HALFWAY ACROSS THE SCREEN." 

00990 P. :F.I=1TO1500:N.I 

01000 IN. "PRESS 'ENTER' TO START" ;A$ 

01010 RET. 



00905 
00910 
00920 



Break Level II 

00500 IFN=7.2135E-5THEN600 

00510 N=7.0135E-5:CLS:PRINT"THE GAME OF BREAK" : PRINT:M=0 :G*0- - 

00520 PRINT"BREAK THE WINDOW, THAT IS ..." 

00530 PRINT: INPUT"DO YOU WANT INSTRUCTIONS" ; A$ : IFLEFT$ (A$ , 1 ) <>"N"GOSUB900 

00540 CLS:FORI = 0TO23:SET(127,I) :NEXTI : < . 

00550 T=RND(5) : PRINT@512 , " " ; 

00560 F0RX=1T063:RESET(X-1,11):SET(X,11):F0RI=1T0T:NEXTI:NEXTX 

00570 FORX=64T0126:RESET(X-l,ll) :RESET(X,11) : FORI=lTOT:NEXTI :B$=INKEY$ : IF$ 

NEXTX 

00575 IFXO127GOTO600 

00580 PRINT"TOO LATE - THE BRICK JUST. BROKE THE WINDOW" 

00590 FORI=1TO2000:NEXTI , 

00600 S=INT( (X-64)*1.61+.5) 

00610 IFS>100THENS=0:GOTO630 

00620 SET(X,11) 

00630 PRINT: PRINT" YOUR SCORE FOR THIS THROW IS" ; S ; "POINTS" 

00640 G=G+S:M=M+1 

00650 PRINT: PRINT"YOUR AVERAGE IS" ;G/M; "POINTS" 

00660 PRINT: INPUT"DO YOU WANT TO TRY AGAIN" ;A$ 

00670 IFLEFT$ (A$ , 1 ) <>"M"THEN540 

00680 CLS:INPUT"DOES ANYONE ELSE WANT TO PLAY";A$ 

00690 IFLEFT$(A$,1)O"N"THEN510 

0700 PRINT" O.K. - BYE FOR NOW": END 

00900 CLS ■ 

PRINT"! WILL DRAW A WINDOW ON THE RIGHT SIDE OF THE SCREEN, AND THEN 
PRINT" I'LL LAUNCH A BRICK FROM THE LEFT SIDE. AT THE EXACT TIME iriAT 
PRINT"THE WINDOW IS HIT, PRESS ANY KEY (AND WAIT TO ACCEPT YOUR" 

00930 PRINT"PUNISHMENT...) ," • , „„,.„„ 

00970 PRINT:PRINT"THE ONLY REAL DIFFICULTY IS THAT THE BIONIC BRICK SPINS 

00980 PRINT"SUPER-SP£ED AND TURNS INVISIBLE HALFWAY ACROSS THE SCREEN," 

00990 PRINT:FORI=1TO1500:NEXTI 

01000 INPUT-PRESS 'ENTER' TO START";A$ 

01010 RETURN 
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Pinball Level I 



00100 
01000 
01100 

01105 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01900 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02.200 
02210 
02220 
02230 
02240 
02250 
02260 
03000 
03100 
03150 
03200 
03220 
03300 
03310 
03320 
03400 



REM TRS-80 PINBALL BY PAUL KAFOURE 

REM INSTRUCTIONS. 

CLS: PRINT "WELCOME TO ^RS-8-0* ^INBALL" : 

INPUT "DO YOU WANT INSTRUCTIONS" ; E 

IF E = N GOTO 2000 



PRINT 



P. "A TARGET AREA WILL BE DRAWN ACRG< 



10 
65 






39 

42 

60 





2 

2 

20 

2 

20 

10 

7 



10 

1 

31 



E = 
F = 
G = 
H = 

I = 
J = 
K = 
L = 
M = 
N = 
P.= 
Q = 
R = 
S = 
T = 
U = 

V = 
w = 
X = 

Y = 
z = 
REM 
CLS 

FOR J = 4 
FOR 1=0 
SET (I, J): 
FOR I = 55 
SET (I, A) 
NEXT I 
FOR J = 30 



1 

DRAW 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



THE TOP OF THE SCREEN." 
P. "POINTS ARE SCORED BY HITTING THE TARGET AREA WITH A" 
P. "BALL BOUNCED OFF THE- PADDLE. MOVE THE PADDLE LEFT BY" 
P. "HITTING THE BACKSPACE (]) KEY. MOVE IT RIGHT BY HITTING" 
P. "THE SPACE BAR. USE THE BACKSPACE TO STOP A PADDLE WHICH" 
P. "IS MOVING RIGHT AND THE SPACE KEY TO STOP A PADDLE MOVING" 
P. "LEFT. THERE WILL BE 10 BALLS WITH BONUSES FOR HIGH SCORES, 
INPUT "HIT ENTER' WHEN YOU'RE READY" ;A$ 
REM INITIALIZE 

44 :REM Y CO-ORDINATE OF • PADDLE 

MAXIMUM NUMBER OF BALLS - , 

CENTER OF PADDLE AT START 

MOVEMENT OF PADDLE (0 =,STOP, 1 = RIGHT,, 

-1 = LEFT) 

INPUT ANSWER TO YES/NO QUESTIONS , 

LEFT MOVE/STOP SET ' PO'lNf X CO-ORDINATE 

RIGHT MOVE/STOP SET . POINT X 

HORIZONTAL X CO-ORDINATE. OF 

USED IN LOOPS 

USED IN LOOPS 

HORIZONTAL ADJUSTMENT OF BALL (+RIGHT, -LEFT) 

VERTICAL ADJUSTMENT OF BALL (+=DOWN , ~=UP) 

CURSOR POSITION BETWEEN TWO SET POINTS 

"NO" VALUE FOR YES/NO REPLIES 

PADDLE WIDTH 

END OF PADDLE 

USED AS ARGUMENT IN RANDOM FUNCTION 

SCORE 

USED IN LOOP TO MOVE PADDLE BEFORE NEW BALL 

BALL COUNTER- 
VERTICAL Y CO-ORDINATE OF BALL AT START 

USED AS COUNTER WITH T IN NEW BALL LOG? 

X CO-ORDINATE IN MOVING PADDLE 

"YES" VALUE FOR YES/NO REPLIES 

Y CO-ORDINATE IN MOVING PADDLE 



CO-ORDINATE 
BALL AT START 



PATTERN 

TO 28 
TO 127 

: NEXT I: 
TO 55 + 



TO 47 



NEXT 
P 



03410 SET(0,J): SET(127,J) 

03420 NEXT J 

04000 REM NEXT BALL 

04100 FOR U = U TO B 

04150 PRINT AT 30, "SCORE " ; S ; : PRINT AT 50, "BALL ";U; 

04160 PRINT AT M, " " ; : SET (F r Y): SET (G,Y)' 

04190 SET (H,V): SET (H+1,V) 

05000 REM MOVE BALL 

05050 RESET(H,V): RESET (H-f-1 ,V) 

05070 IF V > 44 GOTO 6950 

05100 H = H + K: V = V .+ L 

05150 IF H < 2 THEN H = 2: K = -K + 1 

05160 IF II > 124 THEN H = 124.; K = -K - 1 

05180 IF V '<" 9 THEN V = 9: L = -L 

05200 SET(H,V): SET(H+1,V) 

05210 IF V < G GOTO 5270 

05250 IF(V>42)*(H<=C+Q)*(H>=C-Q-1) L=-L: K=INT ( (C-H) /3 ) 

05270 IF V > 29 GOTO 5900 

05300 IF (POINT(H,V-1)=0) * (POINT (H+l ,V-1 ) =0 ) GOTO 5900 

05350 S = S + 10 

05400 FOR I = H-l TO H+2: FOR J = V-4 TO V-l 

05410. RESET (I, J) : N.JiN.I 

05440 IF (K = 0) + . (L > 0) THEN K « ~K + RND(3) - 2 

05450 L = ABS(L) 

05900 .-REM END OF BALL MOVEMENT 

06000 REM MOVE PADDLE 

0SI00 IF POINT(G,Y) - THEN D = D + 1: GOTO 6120 ■ 

06110 IF POINT(F,Y) = THEN D = D - 1 

06120 PRINT AT M, "";: SET(F,Y): SET(G,Y) 

06150 IF D = GOTO 5000 , ' 

.06200 D = D / ABS(D) 

06250 X = C + 11*D: Z = C - 10*D 

06800 SET(X,A): RESET (Z, A): SET(X+D,A): RESET (Z+D # A) * 

06810 SET(X+D+D,A) :, RESET (Z+D+D,A) 

06840 C=C+D+D+D 

06850 IF C = 113 THEN D = -1 : GOTO 6250 

06860 IF C = 14 THEN D = 1: GOTO 6250 

06900 G.5000 

06950 IF W < T. THEN W = W + 1: V = 45: GOTO 6000 

06970 W = 0: V = 31 

06980 NEXT U: REM NEXT BALL . 

06990 IF(B=10)*(S>499)B=B+INT(S/500) : G.4000 

07000 PRINT AT 15, "END OF GAME SCORE ";S; 

9000 REM NEW GAME 

09100 PRINT AT 770, ""; 

09110 INPUT » DO YOU WANT ANOTHER GAME";E 

09115 IF E = N PRINT " OK, BYE": GOTO 9990 

09140 GOTO 1000 

09990 GOTO 9990 
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Pinball Level II . 

00100 REM TRS-80 PINBALL BY PAUL KAFOURE ' * : 

01000 REM INSTRUCTIONS . . ' 

01100 CLS: PRINT ''WELCOME TO ^TRS-80 PINBALL" : PRINT "" ' ' ' 
01105 INPUT "DO YOU WANT INSTRUCTIONS" ; ; E$ ■ '' k 

01110 IFLEFT$( E$,l) =.»N" GOTO 2000 • - ' ' 

01120 PRINT»A TARGET AREA WILL BE DRAWN ACROSS THE TO'P OF THE SCREEN « 
01130 PRINT-POINTS ARE SCORED BY HITTING THE TARGET AREA WITH A" 
01140 PRINT"BALL BOUNCED OFF THE PADDLE. MOVE THE PADDLE LEFT BY" 
01150 PRINT-HITTING THE BACKSPACE (]) KEY.' "MOVE 'IT RIGHT BY HITTING" 
01160 PRINT" THE SPACE BAR. USE THE BACKSPACE TO STOP A PADDLE WHICH" 
01170 PRINT" IS MOVING RIGHT AND THE SPACE KEY TO STOP A PADDLE MOVING" 
01180 PRINT-LEFT. THERE WILL BE 10 BALLS WITH BONUSES. FOR HIGH SCORES •» 
01900 INPUT "HIT ENTER WHEN YOU'RE READY" ;A$ 
02000 REM INITIALIZE 

02010 A =; 44 :REM Y CO-ORDINATE OF PA'DDLE 
2020 B = 10 :REM MAXIMUM NUMBER OF BALLS 

02030 C = 65 :REM CENTER OF PADDLE AT START ■ 

• 02040 D = :REM MOVEMENT OF PADDLE (0 = STOP, 1 =' RIGHT " ' = ' 
02050 REM ':- - -1 = LEFT) * ' 

2060 E = :REM INPUT ANSWER TO YES/NO QUESTIONS 

02070 F = 39 :REM LEFT MOVfi/STOP SET"' POINT X ' CO-ORDINATE* 

02080 G = 42 :REM RIGHT MOVE/STOP SET POINT X CO-ORDINATE' 

201' H = 60 .-REM HORIZONTAL X CO-ORDINATE OP BALL AT START 

02100 1 = :REM USED IN LOOPS " : ; -''"* •' '■ 

2110 J = :REM USED IN LOOPS '•-'■■.'.'' " [ 

02120 K = 2 :REM HORIZONTAL ADJUSTMENT OF BALL (+RIGHT.-LEFT) ' 

02130 L = 2 .-REM VERTICAL ADJUSTMENT OF BALL (+-DGWN, ~=UP) 

02140 M = 20 :REM CURSOR POSITION BETWEEN TWO SET POINTS 

02150 N = 2 :REM "NO" VALUE FOR YES/NO REPLIES 

02160 P = 20 :REM PADDLE WIDTH C 

02170 Q = 10 :REM END OF PADDLE -'» 

02180 R = 7 :REM USED AS ARGUMENT IN RANDOM FUNCTION 

02190 S = :REM SCORE 

2200 T = 10 :REM USED IN LOOP TO MOVE PADDLE BEFORE NEW BALL : 

2210 U = 1 :REM BALL COUNTER ' ' ' 

02220 V = 31 :REM VERTICAL Y CO-ORDINATE OF BALL AT START ' 

02230 W = :REM USED AS COUNTER 1 WITH T IN NEW BALL LOOP 

02240 X = :REM X CO-ORDINATE IN MOVING PADDLE 

2250 Y = 1 :REM "YES" VALUE FOR YES/NO REPLIES ' ' ' 

02260 Z = :REM Y CO-ORDINATE IN MOVING PADDLE 

3000 REM DRAW PATTERN 

03100 CLS • ■■" 

03150 FOR J = 4 TO 28 

03200 FOR I = TO 127 

03220 SET (I, J): NEXT I: NEXT J 

03300 FOR I = 55 TO 55 + P 

03310 SET (I, A) 

3320 NEXT I 

03400 FOR J = 30 TO 47 

03410 SET(0 / J): SET(127 ? J) 

03420 NEXT J 
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04000 REM NEXT BALL jM 

04100 FOR U = U TO B ^P 

04150 PRINT@ 30, "SCORE - ; S ; : PRINT@ 50, "BALL ";U; .- •. , W 

04160 PRINT@M, ■"•;: SET (F,Y): SET (G r Y) 

04190 SET (H,V): SET (H+'1,V) 

0500 REM MOVE BALL 

05050 RESET(H,V): RESET(H+1,V) 

05070- IF V > 44 GOTO 6950 

05100 H = H + K: V = V + L 

05150 IF H < 2 THEN H = 2: K = -K + 1 

05160 IF H > 124 THEN H =124: K = -K - 1 

05180 IF V < 9 THEN V = 9: L = ~L _ 

05200 SET(H,V): SET(H+1,V) 

05210 IF V < G GOTO 5270 

05250 IFV>42ANDH<=C+QANDH>=C-Q-1L=-L: K=INT ( (C-H) /3 ) 

05270 IF V >' 29 GOTO 5900 ' • 

05300 IF POINT (H,V-1)=0ANDPOINT(H+1,V-1)=0 GOTO 5900 

05350 S = S + 10 

05400 FOR I = H-l TO H+2: FOR J = V-4 TO V-l 

05410 RESET (I, J): NEXTJ:NEXTI 

05440 IF (K = 0) + (L > -0-) THEN K = -K + RND(3) - 2 

05450 L = ABS(L) 

05900 REM END OF BALL MOVEMENT 

06000 REM MOVE PADDLE 

06050 A$ = INKEVS *: IF A$ = m " THEN. 6120 

06070 IF A$ % = " " THEN D = D + 1 :ELSE D = D - 1 -^ .; - N 

■3G12Z PRI^Ty V ,. v " ; : ££T(F,V): SET(G,Y) A 

06150 .IF D = GOTO 5000. " *W 

06200 D = D / ABS(D) 

06250 X = C + 11*D: Z = C - 10*D 

068C0 SET(X,A): RESET (Z, A): SET(X+D,A): RESET(Z+D,A) 

06810 SET(X+D+D,-A) : RESET (Z+D+D, A) 

06840 C = C + D + D + D 

06853 IFC= 113 THEN D = -1: GOTO 6250 r . , 

06860 IF C = 14 THEN D = 1: GOTO 6250 

06900 GOTO5000 

06950 IF W < T THEN W = W + 1: V = 45: GOTO 60C0 

06970 W = 0: V = 31 

069S0 NEXT U: REM NEXT BALL • - 

06990 IFB=10ANDS>499B=3-MNT(S/5-00)': GOTO '1000 

7 000 PRINTS 15, "END OF GAME SCORE " ; S ; 

09000 REM NEW GAME 

09100 PRINTS 770,, 

09110 INPUT " DO YOU WANT ANOTHER GAME";E$ 

09115 IF LEFT$(E$,1) = "N" PRINT " OK', BYE": GOTO 9990 

09140 GOTO 1000 

09990 GOTO 9990 
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Jukebox Level I 

00001 U=.6:G.310 ■ .- . . 

00010 F,K=1T012*L { •-■ ■•■7 : ' • - '" 

00011 A=12-12 + l '. ■ -V 

00012 N.KrRET. '. ' '' 

00015 F.K=1T013*L K ' • " .' :: '' 

00016 a=A-1+10 • ■-, ...•>''■ ■'--'*i 

00017 N.K.-RET. ' • "" ' ■ ' 

00020 F.K=1T014*L '"" ■!':' ' - ~ ' • ;:?: - ^ 

00021 A=A-A+123456 ■•;.-,.'' "' r . '.' ? * . ' 

00022 N.K:RET. . •:••■.• , ;• ,. -.a 

00025 F.K=1T015*L • : " • . . 

00026 A=A-A+12 '■■■■'' •• . : "'■' - 

00027 N.K.-RET. . * ' - " •-..'-- 

00030 F.K=1T016*L "'•''- - * 

00031 A=l+1 ' ' ■ . ■ •'« 

00032 N.K.-RET. ". . ■. •'• 

00040 F.K=1T017*L *..-:■■■• ■ s . - 

00041 A=A+111 f f , . •• . 
• 00042 N.KrRET. ■';•'• " " 

00045 F.K=1T018*L ./ .-.- .••'•'• * ' ' i 

00046 A=0000000 "' •' ' '' V' •' . .- ■ ., • ... S 

00047 N.K.-RET. . c f 
000^0 F.K=1T019*L ■'. ■• "■ -"■■■• ' " ' . • I 

00.-1 a =a-a .■•':::.'.••:... . ' ' "'.•" ■; - J 

00052 N.K.-RET. ' - •' ' " ..'; " '- ' I 

00055 F.K=1TO20*L "• "' '•*•'* '.'.-. - -' I 

00056 A=11H ' ' ' ' I 

00057 N.K.-RET. ' '"-■>-:■ ',''''.. 1 ; ;. . " -^ '-■ <S j 

00060 F.K=1T021*L "-.■.«'. '}' f 

00061 A=ll :N .K:RET. 
00065 F.K=1T022*L:A=1-N K-RFT 

00070 F.K=1T023*L i " N - K - RET - 

00071 a=A 

00072 N.K.-RET. 

00110 F.K=1T024*L:A$ = »«-REM ' ' '"' ' I 

00112 N.K:RET. - •- 

00115 F.K=1T026*L ' " * ' k \ 

00116 f 

00117 A$=C0UNTERP0INT . '. ■ [ 

00120 F.K=1T028*L N.KrRET. ., . . { 

00121 A$=CLOAD *** MAGAZINE ' I " ' e ~ i { 

nn,,ii N.K.-RET. ' ,. '. . . t 

00130 F.K=1T032*L ' '• ' "- I 

00131 a$=e ^ . ..::■' ''■ " i "• i 

00132 N.KrRET. ' " *• .- -.':. •'• - i 

00140 F.K=1T034*L:A$= ■ ' ■'"•'. '...., | 

00141 N.K.-RET. "'" ■ ' ■ * 



P.AT84;»TRS-80 JUKEBOX ^PACE-BAR ON KEYBOARD) « ; 

P.:P -1) MICHAEL ROW THE BOAT ASHORE 

P. "2) MARINES HYMN»;P.«3) CLEMENTTMP" n n ,, „ 

j; CLLFlLNflNE :P."4) OH SUSANNAH 
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00430 
00490 
00495 
00500 
,00510 
00999 
01010 
01020 
.0103 

.01040 

,.'01050 
01060 
01100 
01110 
01120 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
03000 
03020 
03030 
,03040 
03050 

-03060 
04000 
04010 
04020 
04030 
04035 
04040 
04050 
04060" 
04070 
05000 
05020 
05030 

'05040 
05050 
05060 
05075 
05080 
06000 
06030 
06040 
06050 
0b060 
06070 
06080 
06090 



P. "5) SILENT NIGHT": P. "..6) THE SOUND OF SILENCE 
P. ; I. "NUMBER" ;A:P.AT640 
IF(A<1) + (A>6)T.320 
P.AT160+64*A;"] ] ] NOW PLAYING"; 

ONAGOS. 9 99, 2 000, 3 000, 4 000,500 0, 6000 :G. 3 20 
F-R=1T02 

GOS.30sL=T:GOS.50:L=V:GOS 

L=W : GOS , 3 : GOS .50: L=Y : GOS 
L=T : GOS . 5 : GOS ,50: L=V : GOS 
L=W : GOS . 1 : GOS . 2 : L=X : GOS 



L=W:GOS.l 

Lt = - 5 A. » VJ ww * O 

L=fV:GOS.3 

L.^'A.lu'Ub & jL 

L=V:G0S' 

L=X:GOS 

L=V:GOS 



15;L=T:GOS.4 0:GOS.55:L=V:GOS 



,30: 
60: 

,30: 
30: 
40: 



GOS, 
L=X; 



40 



L=WsGOS.115:GOS,110;L=Y:GOS, 



50: 

GOS 

GOS.40:L 

GOS.20:G 

GOS.55:L 

5 : L~X : GO 



=T:GOS.6 

50 
T: GOS. 3 

OS.10:N.R 
=^T:GOS.6 5 



L=V+W : GOS . 5 5 : GOS .55: L=V : GOS . 4 : GOS . 4 5 



L=T:GO'S.40:L=X:GOS.25;L=W:GOS.15:GOS.25 
GOS.40:GOS.55:L=V:GOS,65:L=T:GOS.110:L=X:GOS.115;RET J 

F,R=1TO4:ONRGOS.2010 # 2.0I0,2 05 0,2 010:N.R:RET. 
L=S:GOS.-10:L=U:GOS.3 0:L=W:F.I = 1TO4:GOS.50:N.I« . 

L=T:GOS.50:L=V:GOS.110;L=W:GOS.50 



L=S:GOS.30:L=U:GOS..40:L=W:GOS.50:GOS.50:L=V:GOS. 

GOS . 2 : L=W+X : GOS .10: RET . 

L=S:GOS,110:L=U:GOS»70:L=W:GOS.60:GOS,40:GOS.60: 

L=T : GOS . 5 : L=V.: GOS , 30 : L.=W : GOS . 5 

L=S:GOS.110:L=U:GOS.70sL=W:GOS.60:GOS.40 

L=V : GOS .60: L=T : GOS . 1 1 : L=W+X s GOS . 5 : RET . 

F . R= 1 T02 : L=S : GOS . 4 ; L^U : GOS . 4 ? L=W : GOS . 4 : GOS . 1 

L^U : GOS . 6 : L=W : GOS .60: GOS . 4 : L~S : GOS . 4 : L=U : GOS . 

L-T : GOS .110: L=V : GOS .110.: L=S : GOS .65: L=U : GOS . 6 : L= 

L=S : GOS- 5 : L=U : GOS . 6.0 : L«W : GOS .65: GOS .65: L=S : GOS . 

GOS .50: L=W : GOS .60: GOS .40: L=*S : GOS . 4 : L=U : GOS . 6 : L 

L=V : GOS . 1 : L=S ; GOS . 3'0 : L=U : GOS .50: L=X : GOS . 4 : N . R: 

F,R=1TO7:ONRGOS,4 010,4 04 0,4 010,4 05 0,4 060,4 010,4 

L=U : GOS . 5 : GOS . 6 : L=V : GOS . 7 : GOS .120 

L=S : GOS * 1 2 : L=U : GOS .130! L=V : GOS . 1 20 : GOS 

L=S : GOS . 5 : L=U : GOS .60: L=V : GOS .70: GOS . 7 

L= (U+V)/2:GOS.60:L=V:RET. 

GOS : 5 : L=T : GOS . 6 : RET . 

GOS . 6 : L=X . GOS . 5 : RET . 

L=W : GOS ,110: GOS .110: L=V : GOS .130: L=W : GOS 

ONNGOS.130,120,120,7 0,5 0:N.N:L=T:GCS.60 

F . R= 1T02 ; L=T : GOS . 5 : L-V : GOS .60: L=W : GOS . 

L=X : GOS . 1 20 : L=W : GOS .120. L=Q : GOS .70: L=X 



7 



40:L=T 
GOS. 110 



:L=S:GOS.6 

60 

X: GOS. 5 

60:L=U 

=T;GOS,.5 

RET. 

50:N,R:RET. 



130 

RET 
50:L=Q:GO 
GOS. 110 : L 



L=V:F.,N=1T05 



GOS 
GOS 
GOS 
L=V 
GOS 



L=X:GOS.60:L=W:GOS. 



50:L=V:GOS 



110:L=Q:GOS.50:F.R=1TO2 
110: L=V : GOS . 7 : L=W : GOS .60: L=T : GOS 
50.L=Q:GOS.30:N.R:L=X:GOS.120:L=W:GOS.120:L= 
GOS .120: L=W : GOS . 7 t L=Q : GOS .110: GOS .130: L=W : G 
5 3 : GOS . 3 : L=T : GOS , 5 : L=V : GOS .40: L=W : GOS . 2 
L=Q+X:GOS.10:RET. 

F«P=1TO2;L=V:F.N=1TO6:ONNGOS.20,20,4 0,4 0,60,6 0:N 
L=V : F . N= 1T08 : ONNGOS . 1 , 1 , 1 , 3 t 3 , 5 , 5 , 4 ::N . N : 



S . 3 : N „ R 
-%f ■ 
: L-T 
.60: L=W - 
T:GOS.140 
OS, 110 . 



GOS . 20 : F. R=1T02 : L=V: F .N=1T07 : ONNGOS .40,40,40,60 
N.N: L=W : GOS .120: L=V : GOS .120: L=Q : GOS . 1 1 : M . R 
L=V : GOS . 4 : GOS . 4 : GOS .120: L=T+W :. GOS .120: 1.=V : GOS 
GOS . 1 40 : L=T : GOS .140 :*L=V : GOS .130: L=T : GOS .120: L-Q 
L=V : GOS .120: GOS .110: L=Y : GOS .6 : L=V : GOS .40: GOS . 4 
GOS . 1 1 : L=V : GOS .30: GOS .40: L=Y : GOS . 2 : H . P : RET . ' 



•.N:L=Y:GOS.50. 
L=Y-V 

6 0,110,110 '. 

120:GOS.130 ; 
GOS. 110 . : 
:GOS.40:L*Q '. 



Jukebox Level II 
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^ 



00004 DEFINTA-T:DEFSNGL:GOTO310 . . , 

005 JAMES GARON:9 20 W. ROMNEYA #6 ANAHEIM; 

00006 F0RK=1T011.5*L 

00007- : :: :REM .. . ; . 

008 ::::REM .. ' ; "■';.:.' 

00009 NEXT:RETURN -'" :,i '« ' '' 

00010 F0RK = 1TQ12*L . \ :t .. . 

00011 : :: : REM . " . ' ' 

00012 : ::REM// 

00 013 NEXT: RETURN ' .. , " ; 

00015 FQRK=1T013*L . ' ' ' . ' 1 ' .. 

00016 : :: REM// ... '; "' '. 

00017 : :: REM///, ". . ': - 

00018 NEXT:RETURN 

00020 F0RK = 1T014*L . . '-'.•""-' \ 

00021 ::REM////// "'. ' I; ' 

00022 :::REM////// 

00023 NEXT:RETURN 

00025 FORKflT015*I, . 

00026 ::REM///// 

00027 : ::REM 

00028 NEXT:RETURN 
,00030 F0RK = 1T016*L 

00031 :: REM//// 

00032 : : ..REM//// 

00033 NEXT: RETURN . 

00040 F0RK = 1T017*E .. 

00041 :: REM. 
042 : : ,REM '' 
00043 NEXT.-RETURN, 
00045 F0RK = 1T,018**L 
004 6 : REM//// 
00047 :: REM//// 

-00048 NEXT:RETURN 

00050 F0RK=1T019*L 

.00 051 : REM 

00052 ::REM 

00053 NEXT:RETURN 

00055 FORR = lTO2'0*L 

00056 :REM////// 
0057 : REM///// . . . 
00058 NEXT:RETURN ' ' 

00060 F0RK=1T021>L. . 

00061 : . '. . REM . , .' 
00 062 .-REM,' ,' 
0063 NEXT: RETURN",. 
00065 F0RK=1T022*L % ' 
0066 REM.//////// . 
0067 :REM///// . 
00068 NEXT:RETURN 

00070 F0RK=1T023*L 

00071 :REM 

00072 REM 

00073 ,NEXT:RETURN 
00110 ' F0RK=1T024*L: 
00112 NEXT: RETURN 

00115 F0RK=1T026*L: 

00116 NEXT: RETURN 
00120 F0RK=1T028*L: 
0121 NEXT: RETURN 



CA ; 9 28 01 



:REM//////////, 

:REM///// 

REM/////////////// 



00130 -F0RK=1T032*L: REM///////////////////// 34 

00131 NEXT RETURN .- • . " , ..,.;•> 

00140 F0RK=1T034*L; REM///////////////// J 

00141 NEXT:RETURH --* :','-.-o.;- 

010 3 10 U=i 4'V=U+-U:W=V+V:X=W+Wl:-Y-X4-.X:S=U+V:T=V+W:-Q=V7+X 
-00320 CLSIPRIN-T@910,"P'I,ACE A-M RADIO NEAR KEYBOARD" : PRINTG20„-"TBS-80 JOKF | 

V PRINT ...-■'' ,^ ■.'■-••• * '■" 

P04H3 '- PRINT-PRINT*!.) MICHAEL ROW THE BOAT ASHORE 

00420 PRIN-T*2) MARINES- ^YMM" : PRINT" 3) CLEMENTINE" : PRINT" 4 ) OH SUSANNA! 

00430 'PRINT»5) SILENT '.-NK5HT" : PR.INT"6 ) THE SOUND OF SILENCE^ 
■■WS.W-" pPINTtINPUTVNUMBER !r ,-As;rFA<lORA>6THEN320:ELSEPRINT@o39 / 
••PKfNTf i 60+64 *A/']- I } NOW PLAYING 8 ; 

•^ H9 & FQRE=1TC2 : L=W : COS U3 1 : COS UB 3 : L=T : GQS UB 5 : L=V ; COS UB.3.0 : GOSaB5# a L-1 

•••'GQS'UB60" '-■"'" ' -'"- • ■'"""' - •""'" •■ ■ - ' 

010 ?h L=X sGOS UB 5 : L=W : GOSUB 3 rGGS UB 5 : L=Y : GOS UB 6 : L~XrGOS UB 5 
JtSll L-V GOSU&30-L-T-'GOSUB50:-GOSUB50rL=V:GOSUB30-:GOSUB40:-L»T:GOSUB30- 

ImS L^GoluS":^ 
01-05^ L =V:GOS : UB15;L=T.lGOSUB40:GOSUB55:L=¥:GOSUE40:GOSUB55tL=frGOS.UE6b 

01060 L=X:GOSUB5'5:L=W:GOSUBI15:GOSUB110:L=Y:GOSUB65:L=X:GOSUB5S 

■0110 L=V:GOSUB40:L^¥+W:-GOSUB55':GOSUB55:L=V:GOSUB40;GOSUB45' 

0.1110 'L=T:'GOSUB4 0;L=X:.GOSUB25:L=W:GOSUB15:GOSUB2 5 

011?0 GOSUB40:GOSUB5.'>:L=V:GOSUB65:L=T:GOSUB110:L=X:GOSUB215:RETURB. 

-02-000 FORR=-! T04 : ONRGOSUB2010., 2010 ,;2 050 , 2010 tNEXTR.i REM 

*83«i L=S :GGSUB10:-L=U:G^&UB30:L=W:FORI = 1TO4:GOSUB50:NEXTI 

'02020 L=T : GOS UBS 0YL=V : GOS US110; L=W £ : :GOSUB 50 . . 2 U- - ^ 

203 %=S-I GOS UB 3 t-L= U :GOSU B 4;0 : L=?W.: GOS UB 5 : GOS UB 5 : L=V : GOS UB 4 : L=i 

- -msm - GOSUB.20 r L^W+X^GOSUBl 0: RETURN 



>c: 



■L=U:GGSUB70,:L=-W:GOSUB6 0:GOSUB4 0:GOSUB6 0;GOSUB110 



-'03i35-a, --L-£ . 

-■0:2060 ■•. I>T tG.OSUB50^L=VtGOSiJ&3:ft:,L-W:GO&UB50 

0--20-7O •L»S:GOS'JB110.:L^L»:&OS , uD70:^=W.:GOSUB6O:GOSUB4 — ,. . 

>:2&b0 . L=VjGOSU36?:L=T:GOCUB1I0:L=W+X:GOSUB50:RETURN • - - o , ' „ CMB ^ 

03.00 EL"'P0RR»iTG2 j L^S'iGOSUB4:0 : L=U; GOSCJB4 : L=W : GOS UB4 : GOS UB 1 : L=S :^OS JB& 0- 

30 20 ' -1 -L^U-: G OS UB 6 § f L=W : GOSUB 6 : GOS UB 4 : L=5 : G OS UB 4 C : L=.U : G OS UB b v. - 
'0 3030 L=*:G'OSUBii0':-L^V:C6syB110:L=S:GOSUB6 5:L=U:GCSUB6O-:L=X:GObUB50 

304 ■ L=SsGOSUB5*:L=U::GOSUB60:L=W:GOSUB6 5:GOSUB65:L=S:GOSUB6 0:L-=U. 

03050 GOSUB50:L^:GOSUB60:GOSUB40:L=S S GOSUB40:L=U:G^ 

0306!. L=V:GOSUB10:L=S:GOSUB30:L=U:GOSUB50:L=X-:GOSU^ 

04000 FORR=1TO7:ONRGOSUB401&, 4040, 4 010i 4050, 4060, 4010, 40D0:NEXTRrREiUEIN 

04010 L=U:GOSUB50:GOSUB60:L=V:GOSUB70.:GOSUB120 

04020 L-S:GOSUB120:L=U:GOSUB130:L=V:GOSUB120:GCSUB70 

04030 ' .L=S=:GQSUB50:L=U:GOSUB60":L=V:GOSUB70:GQSU&70 

0.4 §3 5 L= ( U+ V } /2 : GOS UB 6 : L=V : RET URN 
04040 ' GOS UB50 :L-~T: GOS UBS 0: RETURN 

••04-0&B- L=WrG-OSU3-110:GOS.U3ll0:L.=V:GOSUB130:L*W:GD5UB130:L=V:FOKMflTQ5 

0407f- Oi^Ge£UB130 4-20vl20,70,50;NEXTN:L=T:GO^ 

^00%-"EORR=lTO2-rL=T4GOSUB50 : L=V:GOSUB6G : L=W:GOSUB50 : L-Q : GOSUB 3w t-NcXiK 
•0502# -■ L= ; X:GOS-UBl-20tL=W.:GOSUB120:L=QiGOSUB70:L=X:..GOSUB110:L=W ^ 
35030 GOSU&110^L=Q:GO£UBS0:FOfiR=iTO2:L=X:GOSUB60:L=W*GO O UB6B:u=T 
135040 GySU£110:L=V:GOSUB70-*LpW:QOSUB60r-L=T:-GOSUa50:L=V:GOSUB60:L^ 
050S0 GOSUB50 : L=Q : GOSUB 30 :NEXTR> L-=X :GOSUB120 : L=W:GOSUB120 : L=T :GPfeU3l40 
■05060 L=V-:.GOSUB12e.:L=W:GOSUB70:L=Q:GOSUBH0:.GOSUD130:L=W:GOSUB.ll0. 
5070 GOSUR50 :GOSOB30 : L=T :GOSUB50 : L=V:-GOSOB40 : L=W:GOSUB2<? ■ 

03080 L=Q+X: GOS UB10: RETURN. : • „ „«™„c:o. 

06000 L=V:FORN^1TO6:ONMGOSUB20,2B^40,4 0^60,60:NEXTN:L=/:GOSUB50 

06030 L=V:FORN=lTO8:ONNGJ3SU^10 f 1.0,lO f 30,.3Qr50>5.-0,40:WEXTN:L=Y-y . 

06040 GOSUB20 : FORR-1T02 : L=ViFQRN=lT07 : ONNGOSU84 , 40,40, 6-0 , 60 r 1,10 , w & 

■06050 NEXTN:L^W-:GOSUB120:L=V:GOSUB120:L=Q:GOSUBUO:HEXTn - rfVMr ,^ 

06060 L=V:GOSUB40:GOSUB40:^OSUB120:L-T+V7:GOGUB12O:L=V:uObU3120.GOoJ^ AJ O 

.0607.0 GOSUB140:L=T:GOSUB14"fl:L=V:GOSUB13O:L=T:GOSUB12O:L=Q:GOoUbll0 

06060 L=V:GOSUB120:GOSUB110:L=Y:COSUB60:L=V:GOSUB40:GGSUB40:GuSUB40.*-Q 

06090 GOSUB110: L-V : GOSUB30 : GOSUB40 : L-Y : GOSUB20 : RETURN 



